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_A_Microsoft tem 120 programas eníTfifas e disquetes à sua disposição 

_ São sistemas aplicativos para acompanhar e agilizar os negócios 

_ de sua empresa. E também jogos eletrônicos para você e sua família 

_ _se divertirem multo. Todos especiais para TK-83, TK-85; - 

TK-2000, AppIeXe compatíveis. E todos com a mesma qualidade- - 

dos 100.000 programas já vendidos em todo o Brasil: —- 

Procure o revendedor Microsoft mais próximo (se não encontrar os ■ 
‘programas Microsoft escreva para a Caixa Postal 54221 - CEP 01000? 

~S. Paulo-SP). Você encontrará os melhores programas da sua vidaJ 
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TK 90X Lançado no 

â 

Mercado Brasileiro 


O TK 90X foi apresentado à impren¬ 
sa em junho último, numa entrevista co¬ 
letiva, onde estiveram presentes os di¬ 
retores da Microdigital, técnicos e jor¬ 
nalistas dos principais veículos de co¬ 
municação da área de informática. Na 
ocasião, os representantes da empre¬ 
sa fálaram acerca das características 
técnicas do equipamento, perspectivas 
de vendas, exportação e planos 
comerciais. 

Jorge Luis dos Santos, diretor de 
Marketing, afirmou que o novo micro irá 
atingir principalmente o mercado de 
aplicações na área educacional. Porém, 
segundo ele, isto não descarta o seu 
uso em áreas comerciais, (no controle 
de estoques, bancos de dados, contas 
bancárias, etc.) e de estudos científicos 
-(existem programas que traçam cami¬ 
nhos de atividades e desenvolvem qua¬ 
dros estatísticos), entre outras. 

Os diretores prevêem que o TK90X 
irá conquistar, num período de 8 meses, 
cerca de 200 novos usuários. Para isto 
a empresa está investindo, segundo o 
diretor de Marketing, Cr$1,5 bilhão na 


campanha publicitária do novo produto. 

O TK90X foi todo desenvolvido, se¬ 
gundo seu idealizadores, para ser o mi¬ 
cro líder do mercado de computadores 
pessoais, atingindo não apenas o mer¬ 
cado nacional como também o interna¬ 
cional. Para alcançar tal meta, o dire¬ 
tor de Planejamento e Comunicação, 
Szaya Seifert, disse que o parque indus¬ 
trial da Microdigital vem sendo amplia¬ 
do, com o objetivo de atender a deman¬ 
da interna e externa, aumentando a pro¬ 
dutividade. 

Suporte ao Usuário 

Um dos assuntos mais comentados 
pelos representantes da Microdigital foi 
o suporte que está sendo fornecido ao 
usuário do TK 90X. Neste aspecto, Pau¬ 
lo Lauand, diretor técnico, ressaltou o 
desenvolvimento de software e a gran¬ 
de quantidade de periféricos disponí¬ 
veis, compatíveis com o micro. Segun¬ 
do ele, serão lançados, nos próximos 90 
dias, cerca de 200 softwares voltados 
à aplicação em diversas áreas, que se¬ 
rão comercializados a um preço entre 
27.500 a 49.500 cruzeiros. 


Quanto aos periféricos, Jorge L. dos 
Santos disse que atualmente a empre¬ 
sa ainda está estudando o mercado pa¬ 
ra sentir o volume de periféricos que ele 
aceita. 

Doação à entidade educacional 

Durante o lançamento, a empresa 
doou cinco micros pessoais à Fundação 
Educacional Padre Landeel.de Moura, 
em Porto Alegre, entidade que vem tra¬ 
balhando há vários anos em pesquisas 
que visam o aprimoramento da educa¬ 
ção, através do uso de recursos existen¬ 
tes em novas tecnologias. 

O principal objetivo da entidade, con¬ 
forme explicaram os diretores da Micro¬ 
digital, é levar a palavra e a informação 
cada vez mais longe e com maior faci¬ 
lidade. "O intuito desta doação, segun¬ 
do o diretor de Marketing, é fornecer à 
entidade os recursos educacionais que 
existem no novo micro, como lingua¬ 
gem LOGO, que possibilita à área no¬ 
vas opções de aprendizado. A.L.A. 
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PDV é atração na 

M 

Feira de Automação Comercial 

ã 


Quem não compareceu à segunda 
Feira de Automação Comercial, realiza¬ 
da em junho, no parque Anhembi, cer¬ 
tamente levará um susto quando for ao 
supermercado ou a um magazine e não 
mais encontrar os preços fixados nas 
mercadorias, mas uma etiqueta com o 
código de barras. 

Foram exatamente os terminais de 
ponto de vendas e seus periféricos pa¬ 
ra leitura de códigos de barra as atra¬ 
ções da feira. A Itautec montou até um 
minimercado automatizado em seu es- 
tande para marcar o lançamento do seu 
terminal de vendas 1-7000, com scan¬ 
ner (máquinas leitoras de códigos de 
barras) automático e manual a laser. 
Sua memória de 64K Bytes, expandí- 
vel até 4MBytes, tem capacidade para 
guardar até cem mil artigos e o termi¬ 
nal é ligado a um computador que re¬ 
cebe as informações, parceladamente, 
durante o dia ou à noite após o 
expediente. 

A Itautec investiu US$ 5 bilhões no 
projeto do 1-5000 e Mitsuo Moriya, ge¬ 
rente de marketing da empresa, está 
otimista quanto à comercialização do 
PDV da Itautec: "A partir do momento 
em que todos os produtos estiverem 
usando códigos de barra", diz ele, "se¬ 
rá indispensável o uso dos terminais de 
ponto de venda". O 1-5000 estará a dis¬ 
posição no mercado a partir do próxi¬ 
mo ano. 

A Racimec, que também estava ex¬ 
pondo o seu PDV-TTF na Feira, não con¬ 
fia tanto nesta rápida adesão aos códi¬ 
gos de barra. "Preferimos ir mais deva¬ 
gar", afirmou Álvaro Alves Moraes, ge¬ 
rente de marketing da empresa, referin¬ 
do-se ao custo de todo processo de au¬ 
tomação do estabelecimento. 

"As empresas estão ainda na depen¬ 
dência da padronização dos cartões 
magnéticos", continua. Porém, o PDV 
da Racimec está pronto para receber o 
que primeiro aparecer no mercado em 
termos de automação comercial. Nele 
podem ser adaptados a leitura óptica, 
que funciona como os volantes de lo¬ 
teria esportiva; balança, ligada direta¬ 
mente ao terminal; a caneta óptica, pa¬ 


ra leitura de códigos de barra; além do 
equipamento possuir um leitor de car¬ 
tão magnetizado, que permite a trans¬ 
ferência eletrônica de fundos. Desta 
forma, o cliente faz suas compras em 
um supermercado e debita o valor au¬ 
tomaticamente em sua conta corrente, 
através do código secreto de seu car¬ 
tão magnético. 

O usuário pode adquirir ainda uma 
impressora serial, um concentrador 
multiusuário, com seis saídas RS-422, 
além da possibilidade da expansão de 
memória de 10, 20 e 40 MBytes. Para 
maior flexibilidade, todos os equipa¬ 
mentos da Racimec são compatíveis 
com produtos de outros fabricantes. 

O PDV da Racimec já está no merca¬ 
do, sendo usado por clientes como o 
Mappin, Casas Pernambucanas e Gru¬ 
po Silvio Santos. Segundo o gerente de 
marketing da empresa, as Casas Per¬ 
nambucanas já estão com planos para 
a implantação do sistema TTF, ou trans¬ 
ferência eletrônica de fundos. 

Outra empresa que se agarrou forte¬ 
mente nesta fatia do mercado e prome¬ 
te muito num futuro próximo, foi a Sid 
Informática. Seu PDV, o SID 6000, reu¬ 
ne as funções de um microcomputador 
e de uma caixa registradora eletrônica. 
O gerenciamento dos terminais PDV, 
conectados a uma rede local de comu¬ 
nicação, pode ser feito a qualquer tem¬ 
po, por qualquer um dos terminais, atra¬ 
vés dos módulos de circuitos controla¬ 
dores e interfaces apropriadas. Possui 
memória RAM inicial de 64 kBytes, ex¬ 
pansíveis a 128, 256 ou 512 kB, com 
detecção de erro de paridade. Nela são 
telecarregados o sistema operacional - 
compatível com o MS-DOS; aplicativo 
do terminal e o PLU-price look-up- ou 
seja, a tabela contendo o código, des¬ 
crição e preço dos produtos. 

No SID 6000 são encontrados tam¬ 
bém interfaces básicas para comunica¬ 
ção local de até 128 terminais, via ca¬ 
bo coaxial, leitor de código de barras- 
que possibilita a conexão de caneta óp¬ 
tica e teclado auxiliar de cliente, para 
casos de transferência eletrônica de 
fundos. O leitor de cartão magnético, 


além de transferência de fundos, subs¬ 
titui as chaves mecânicas de operação. 
O funcionário do estabelecimento terá 
um cartão magnético cuja senha per¬ 
mitirá a correção ou alteração de pre¬ 
ços na PLU, operação do equipamento, 
entre outras funções. 

A SID dispõe de periféricos opcionais 
para atender às modificações que vão 
surgindo no mercado, de acordo com 
a expansão da automação comercial. 
Entre esses periféricos estão as expan¬ 
sões de teclado -a versão original pos¬ 
sui 28 teclas e pode expandir para 40, 
52 ou 76 teclas; impressora; caneta óp¬ 
tica; teclado auxiliar de cliente; expan¬ 
são de memória; interface "scanner"; 
além de softwares. 

Mas não foram os PDVs as únicas 
atrações da Feira. A Telemática, por 
exemplo, apresentou sua Caneta Ópti¬ 
ca (a empresa é uma das únicas fabri¬ 
cantes de leitoras de códigos de barra 
no Brasil) e o Codin, um coletor de da¬ 
dos usado atualmente p*los Correios 
para cadastramento de malotes. A PGM 
colocou em exposição o KIM-Módulo 
Ident Kit-um pequeno módulo que 
transmite e recebe dados, armazena in¬ 
formações e roda aplicações. Ele atua 
na automação comercial e bancária co¬ 
mo terminal de consultas e bancos de 
dados, além de leitor de cartões mag¬ 
néticos em diversas funções-cartões de 
acesso a lugares reservados, cartões de 
ponto eletrônicos, etc. A Dimep, velha 
conhecida na fabricação de relógios, 
lançou na feira um equipamento não 
muito agradável para aqueles que gos¬ 
tam de chegar atrasados ao emprego, 
mas fantástico para os profissionais 
que trabalham em departamentos de 
pessoal. Trata-se Micropoint 8200, um 
terminal que registra os horários de tra¬ 
balho dos funcionários de uma empre¬ 
sa através do sistema de código de bar¬ 
ras existente nos crachás dos funcio¬ 
nários. Além do controle dos funcioná¬ 
rios, o Micropoint coleta informações 
de fichas para ordem de fabricação, 
controle de estoque, etc., através de ca¬ 
neta óptica. Se necessário, o equipa¬ 
mento poderá receber também um te¬ 
clado numérico. S.A.M. 


4 MICROHOBBY 











Desenvolvimento: 

Tema de debate de profissionais 


A má formação de profissionais in¬ 
gressando no campo de trabalho, a ex¬ 
ploração dos alunos estagiários ou 
recém-formados, entre outros proble¬ 
mas deste tipo, são alguns dos temas 
constantes debatidos e analisados em 
reuniões, palestras, encontros e simpó¬ 
sios que envolvam profissionais da área 
de informática. Sobre estes temas fo¬ 
ram realizados alguns debates no I En¬ 
contro de Pequenos e Micro Empresá¬ 
rios de Informática, organizado pela 
Raindrops Promoções, e no II Encontro 
Nacional de Executivos de Informática- 
ENEI, idealizado pela ANDEI- 
Associação de Dirigentes e Executivos 
de Informática, em São Paulo. 

O primeiro encontro contou com a 
presença de empresários, administra¬ 
dores e especialistas da área. Mesmo 
sendo objetivo do encontro debater e 
analisar a atual situação dos diversos 
setores da área, boa parte da reunião 
voltou-se para o problema de desenvol¬ 
vimento de software. Os participantes 
queixaram-se da desunião dos profis¬ 
sionais desse segmento e mesmo da 
pouca procura, por parte das empresas 
de equipamentos, por produtores de 
programas. 

Para Américo Rodrigues Filho, secre¬ 
tário adjunto da SEI, o problema do 
software está no desenvolvimento. Na 
sua opinião sempre haverá pessoas in¬ 
teressadas em programas disponíveis 
no mercado. 'Antes da regulamentação 
da lei", disse ele, "deve-se começar a 
produzir". Américo acrescentou ainda 
que o problema da pirataria pode ser fa¬ 
cilmente contornado se houver bons 
programas à venda. 

Uma presença marcante neste pri¬ 
meiro encontro foi a do professor João 
Mamede Cardoso, diretor da FUNCET- 
Fundo Científico e Tecnológico, que ex¬ 
plicou a atuação da entidade no desen¬ 
volvimento de projetos. A Funcet, se¬ 
gundo explicou, apoia a execução de 
projetos científicos e tecnológicos de 
empresas nacionais privadas. Criada 
em 1962 e com sede em São Paulo, a 
associação também auxilia na elabora¬ 
ção de projetos de informática. 

"O Estado coloca recursos para sub¬ 
sidiar o desenvolvimento desses proje¬ 
tos, com bases em 40% da variação da 
ORTN", explicou. Para a aprovação dos 


projetos deve-se fazer uma consulta 
prévia à entidade para estudos. Se hou¬ 
ver deferimento da parte técnica, 
passa-se então para o BADESP - Ban¬ 
co de Desenvolvimento do Estado de 
S.Paulo - que cuida da parte adminis¬ 
trativa em geral, para estudos da libe¬ 
ração de verbas. Segundo João Mame¬ 
de, não há burocracias e "em dois me¬ 
ses tem-se a possibilidade de aprovar 
um projeto, se tudo estiver certo". 

Mamede disse ainda que a Funcet só 
não financia atividades normais de pro¬ 
dução. Apenas projetos para desenvol¬ 
vimento de produtos de caráter tecno¬ 
lógico ou cintífico. Ele informou que nos 
dois dltimos anos, 20% dos projetos fi¬ 
nanciados eram da área de informáti¬ 
ca. Quanto ao valor de financiamento, 
o limite máximo permitido é de 30 mil 
ORTNs. 

Mas não é a questão do software a 
única preocupação dos profissionais da 
área. No segundo Encontro Nacional de 
Executivos de Informática os debates 
bifurcaram-se entre os temas mercado 
de trabalho e formação profissional. Na 
abertura do encontro, Henrique Contá- 
bile, presidente da Sucesu/SP, atentou 
para as mudanças provocadas no mer¬ 
cado de trabalho frente à crescente 
complexidade dos sistemas, a sofisti¬ 
cação dos equipamentos, o desenvol¬ 
vimento dos minis e microcomputado¬ 
res e a nova política de informática, al¬ 
terando progressivamente a carreira 
dos profissionais do ramo. 

Este desenvolvimento acelerado não 
só altera a vida profissional dos tarim¬ 
bados, com também torna os currícu¬ 
los escolares obsoletos. Como afirmou 
Guilherme Afif Domingos, presidente 
da Associação Comercial de S.Paulo, "a 
proliferação de escolas especializadas, 
inundam o mercado com profissionais 
legalmente habilitados mas completa- 4 
mente despreparados". O avanço tec¬ 
nológico na área de informática tem exi- 
gidoum desempenho dos profissionais, 
superior ao que as escolas técnicas e 
superiores habilitam seus alunos a 
exercerem. 

Para preencher essa lacuna. Afif Do¬ 
mingos sugeriu que a ANDEI auxilias¬ 
se as escolas na elaboração de seus 
currículos e apoiasse mais àquelas que 
oferecem cursos condizentes com o 
mercado de trabalho. Por outro lado, as 
empresas poderiam, segundo os expo¬ 


sitores, dar maior apoio na formação 
dos alunos, através de estágios. Este 
parecer foi defendido por Carlos Eduar¬ 
do Corrêa da Fonseca, diretor executi¬ 
vo do Itautec, que propôs o estudo de 
uma legislação para isentar de impos¬ 
tos as empresas que fornecem equipa¬ 
mentos às unidades de ensino. 

João Carlos Di Gênio, diretor das es¬ 
colas Objetivo, umas das pioneiras na 
introdução de microcomputadores em 
salas de aula, foi taxativo em suas co¬ 
locações. Preocupado com o compas¬ 
so moroso com que a informática vem 
atingindo o campo de ensino no Brasil, 
comparado a outros países, Di Gênio 
propôs uma reformulação dos atuais 
cursos de tecnólogos, a criação de in¬ 
centivos ao relacionamento escola- 
empresa e a definição de uma política 
de software. O professor Waldemar 
Setzer, da Universidade de S.Paulo, po¬ 
rém, foi mais longe e propôs a extinção 
dos cursos de tecnólogos em Proces¬ 
samento de Dados e a formação bási¬ 
ca, em Ciência da Computação, opinião 
compartilhada por Adair Martins Perei¬ 
ra, da SEI. 

Além da preocupação com a forma¬ 
ção do aluno, há também o interesse 
em capacitar professores para cursos 
técnicos ou superiores."Como podere¬ 
mos ter bons profissionais no futuro se 
não tivermos professores preparados 
para assumirem a função orientadora?" 
indagou o professor Antonio Nicolau 
Youssef, das Falcudades Osvaldo Cruz. 
Esta preocupação atingiu também 
Adair Pereira. Em sua explanação, ela 
chamou a atenção para ausência de bi¬ 
bliotecas. "Além da carência de profes¬ 
sores", disse ela, "não há sequer biblio¬ 
tecas para o profissional desenvolver 
seus conhecimentos". 

Nos debates realizados nestes en¬ 
contros surgiram novas questões que 
serão, provavelmente, temas de novos 
seminários. As propostas resultantes 
do segundo encontro de executivos de 
informática, com possíveis soluções 
para os problemas existentes na área, 
foram encaminhadas ao Ministério de 
Educação e ao conselho Federal de 
Educação, para serem apreciadas. En¬ 
quanto isso, os profissionais de infor¬ 
mática estão relacionando as novas 
questões que aparecem em seu cam¬ 
po profissional, para serem discutidas 
em futuros encontros.S.A.M. 
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Software 
Para a Linha 
TK 2000 

A Microdigital adicionou à sua biblio¬ 
grafia de software para os micros TK 
2000 e TK 2000 II, um pacote forma¬ 
do de 65 programas entre aplicativos, 
utilitários, educacionais e jogos. 

Os programas dirigem-se a aplica¬ 
ções nas áreas de engenharia, comer¬ 
cial entre outras. 

Um dos software de maior destaque 
dentro do pacote é a planilha eletrôni¬ 
ca Multicalc, desenvolvida pela empre¬ 
sa do grupo Microdigital, a Multisoft. 

O multicalc é aplicado à versão de 
128K do TK 200011 e permite a mani¬ 
pulação de planilhas de até 86K. As pla¬ 
nilhas desenvolvidas podem ser lidas 
por um Apple, rodando um Magicalc ou 
um super Visicalc. 

Juntamente com o pacote de softwa¬ 
re a Microdigital está lançando tam¬ 
bém, um serviço especial de atendi¬ 
mento ao usuário. Este serviço objeti¬ 
va, segundo representantes da empre¬ 
sa, esclarecer dúvidas de usuários so¬ 
bre seus software, através do forneci¬ 
mento de listagens descritivas dos 
programas. 

Os interessados devem escrever pa- 
ra a MICRODIGITAL ELETRÔNICA De- 
partamento de Suporte ao Usuário- 
Cx.Postal 54088-CEP 01296-S.P.A.L.A. 


Eng e 

Microcenter 
em Novas 
Instalações 

M 

Eng e Microcenter, empresas ligadas, 
respectivamente, às áreas de desenvol¬ 
vimento de software e treinamento, es¬ 
tão atendendo seus clientes em novas 
instalações comerciais. 

A Eng, localizada na capital, em São 
Paulo, inaugurou seu show-room na 
avenida Tajuras, 406 (continuação da 
avenida Cidade Jardim). A Microcenter, 
que atua no mercado carioca, está fun¬ 
cionando desde maio, na avenida 
N.S.Copacabana, 680 - sobreloja, 203 
no Edificio Jóia. 


Computador é usado na 
educacão de deficientes 

â 


A SEI, a Unicamp e a Embratel assi¬ 
naram um convênio para a realização de 
trabalhos de pesquisa, desenvolvimen¬ 
to, disseminação e intercâmbio de mé¬ 
todos e materiais didáticos para o de¬ 
senvolvimento da educação de crianças 
com deficiência mental, auditiva ou 
visual. 

Para viabilizar esse trabalho, a Itau- 
tec assinou contrato para fornecimen¬ 
to de hardware e software. Inicialmen¬ 
te foram entregues seis equipamentos 
1-7000, que executam a versão da lin¬ 
guagem LOGO adaptadas para o 
português. 

Algumas experiências desenvolvidas 
pela Unicamp, na aplicação da filoso¬ 
fia LOGO de aprendizado computado¬ 
rizado para crianças problemáticas, têm 
mostrado que o computador pode agir 
como uma ferramenta através da qual 
a criança pode formalizar suas inten¬ 
ções. "O uso da linguagem LOGO nos 


permite ver o processo que ela utiliza 
para desenvolver uma determinada ati¬ 
vidade", disse o professor José Arman¬ 
do Valente, responsável pelo projeto na 
Unicamp. "Isso possibilita a identifica¬ 
ção de deficiências e potencialidades 
intelectuais da criança". 

Este projeto terá a duração de dois 
anos e está dividido em duas fases. A 
primeira fase, que se estenderá até ju¬ 
nho, dará ênfase ao desenvolvimento 
dos equipamentos necessários ao tra¬ 
balho com crianças e à formação de 
seis professores que atenderão 12 
crianças. Na segunda fase serão am¬ 
pliados e solidificados os resultados ob¬ 
tidos até junho. Pretende-se treinar, no 
prazo de dois anos, 40 professores pa¬ 
ra usarem o computador como ferra¬ 
menta de ensino e preparar 30 crian¬ 
ças deficientes para o uso de um mé¬ 
todo educacional mais voltado para 
suas necessidades físicas e intelec¬ 
tuais. S.A.M. 


Calendário 
do Mês 

Agosto 

Dia 05 - Formação de 

Programadores- In st. ORT - RJ. Infs. 
(021) 286-7842 

Dia 05-06 - Seminário "Automação 
de Escritório - Uma Visão Abrangente"- 
Servimec (SP) - Tel.(OII) 222-1511. 

Dia 09 - "Comunicação de Dados - 
Redes de Microcomputadores" - Asso¬ 
ciação Brasileira de Administração e 
Conservação de Energia- Infs.(OII) 

285- 249Ó. 

Dia 07-09-Seminário "Gerência de 
Projetos-Um Método Eficaz" Servi- 
mec/SP. Tel.(OII) 222-1511 

Dia 12-Processador de Tex¬ 
tos: Wordstar- 1nstituto ORT-RJTeI. (021) 

286- 7842. 

Dia 12-Utilização Profissional do BA¬ 
SIC ll-lnst.ORTTecnologic- RJ.Tel.(021) 
286-7842. 

Dia 13-16-Seminário "Técnicas de 
Programação"-Serv\mec/ SP. 

Dia 14-Comunicação de Dados - Uma 
Nova Dimensão para os Micros CKL- 
Treinamento Empresarial Avancado- 
RJ.Tels. (021) 242-2912/222-1609. 

Dia 28-Linguagem BASIC-Um infor¬ 
me prático. Inst. ORT-RJ. Tel.(021) 
286-7842. 

Dia 28-30-Seminário "Gerência de 
Redes de Micros e Terminais" 
Servimec/SP.TeMOII) 222-1511. 


Setembro 

Dia 03/09-14/W-LOGO para educa¬ 
dores e psicólogos- Inst. de Tecnologia 
ORT - RJ. Infs. (021) 286-7842. 

Dia 04-06/09-Seminário: Projeto e 
Sistemas de Banco de Dados- Servi- 
mec/SP. Infs. (011) 222-1511. 

Dia 06-Redes Locais de 
Computadores-CKL - Treinamento Em¬ 
presarial Avancado-lnfs. (021) 
242-2912/222-16Ó9. 

Dia 06-Uso de Microcomputadores 
em Aplicações de Engenharia , CAD e 
Gestão Industrial - Associação Brasilei¬ 
ra e Conservação de Energia - 
SP.Tel.(OII) 285-2490. 

Dia 09-15-111 FEEMEC - Feira Nacio¬ 
nal da Indústria Eletro-Eletrônica e Me¬ 
cânica do Nordeste.Promoção Alcânta¬ 
ra Machado Nordeste. 

Dia 09-18-BASIC I - SP. IECAT. 

Dia 09-24-lntrodução do Projeto de 
Circuitos Integrados N-MOS- SP-IECAT. 

Dia 09-26-Microprocessadores- 
lECAT-lnst.Especialização em Ciências 
Administrativas e Tecnológicas da FEI 
(Falcudades de Engenharia Indus- 
trial)(011)278-6853. 

Dia 10-11-"Auditoria de Mini e Micro¬ 
computadores " DC/-SP.Infs. 

(011)280-5648/852-7513. 

Dia 11-13-Controle de Qualidade de 
Software- CKL- Treinamento Empresa¬ 
rial Avancado-RJ.Infs.Tels.(021) 
242-2912/222-1609. 

Dia 18-20-"Metodologia de Progra¬ 
mação". CKL - Treinamento Empresa¬ 
rial Avançado - RJ. Tel. 
(021)242-2912/222-1609. 
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SENAI 

e Sistema de Apoio Didático 


Um sistema gerenciador de cursos 
assistidos por microcomputadores es¬ 
tá em fase de implementação no SE- 
NAI/SP(Serviço Nacional da Indústria). 
Este sistema pretende atingir, inicial¬ 
mente, os grupos de alunos e instruto¬ 
res envolvidos em dois cursos de espe¬ 
cialização, desenvolvidos pela entidade, 
nas áreas de circuitos digitais e micro¬ 
computadores e manutenção de peri¬ 
féricos em eletrônica. Objetivando for¬ 
necer um suporte didático às equipes, 
através de apoio bibliográfico, formado 
de 100 livros e 250 artigos de revistas, 
o sistema tende a ser ampliado para os 
computadores de maior porte à medi¬ 
da que forem sendo implantados os di¬ 
versos subprojetos (16 no total) que 
compõem o Projeto de Eletrónica da 
instituição. 

Desenvolvido para trabalhar com mi¬ 
crocomputadores de 8 bits, o sistema 
ocupa atualmente 10 Megabytes de 
memória. Conforme afirmou Waldemar 
de Oliveira Junior, representante da en¬ 
tidade, ele deverá, numa fase posterior, 
ser reescrito para implantação em com¬ 
putadores de 16 bits, "pois o sistema 
já está se tornando lento devido à ne¬ 
cessidade existente de introdução de 
novos dados". 

De acordo com Waldemar de Olivei¬ 
ra, o gerenciamento dos dois cursos es¬ 
tá sendo realizado em duas sedes da 
fundação."Foram implantados dois sis¬ 
temas, desvinculados um do outro, mas 
que mantém a mesma concepção e 
aplicabilidade, mantidos porém com ob¬ 
jetivos diferentes. Na sede administra¬ 
tiva, o sistema está atuando como su¬ 
porte à equipe responsável pela orga¬ 
nização e concepção (bibliotecários, 


pedagogos, e técnicos, entre outros) do 
Projeto, na atualização e redimensiona¬ 
mento dos cursos. Na escola-base (lo¬ 
calizada na cidade de Santos), o siste¬ 
ma vem sendo usado na pesquisa de 
informações bibliográficas (referências 
de artigos de revistas e livros, orienta¬ 
ções de consultas sobre os diversos as¬ 
suntos tratados em classe) e fornecen¬ 
do o apoio pedagógico necessário aos 
orientadores e instrutores de ensino. 

Todo o Projeto de Eletrônica, ressal¬ 
tou Oliveira, visa primordialmente à for¬ 
mação de recursos humanos na área in¬ 
dustrial voltados à ampliação em pro¬ 
cessos de automatização industrial. 
Conforme complementou, este Projeto 


pretende, "após atingir um indíce alto 
de aprofundamento e superação das fa¬ 
ses propostas, partir para a sua segun¬ 
da etapa, que é a instalação do ensino 
assistido por computador". 

O sistema gerenciador de cursos do 
SENAI foi apresentado em junho último 
na sua sede central, em São Paulo jun¬ 
tamente com o acervo bibliográfico téc¬ 
nico que compõe o banco de dados, 
além dos diversos equipamentos eletrô¬ 
nicos didáticos, desenvolvidos pela ins¬ 
tituição, especialmente para os cursos 
de especialização. O acervo técnico es¬ 
tá aberto à consulta, aos profissionais 
e estudiosos da área que se interessa¬ 
rem. A.L.A. 



SENAI e Sistema de Apoio Didático. 


Curso 
Servimec 
no Sul 
do País 


RENESI- Rede Nacional de Ensino é 
o nome do projeto de ampliação mer¬ 
cadológica instalado pela Servimec, 
empresa ligada à área de informática, 
em janeiro deste ano, e que agora 
amplia-se para a região sul. 

A primeira sede da unidade da Rede 
foi inaugurada no Rio de Janeiro com 
um número de matrículas acima do es¬ 
perado. Oferecendo diversos cursos e 
seminários - voltados ao treinamento, 


atualização e reciclagem profissional - 
a Rede do Rio de Janeiro recebeu, no 
primeiro semestre, cerca de 850 inscri¬ 
ções, sendo que a expectativa girava 
em torno de 350. 

Associando-se a outras empresas lo¬ 
cais, a Servimec une-se, no Rio Gran¬ 
de do Sul , ao birô de serviços Sispro, 
prestando serviços nas áreas de asses- 
soria, consultoria e comercialização de 
software e micros de diversas 
linhas.A.L.A. 
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EDITORIAL 


Microhobby sofrerá algumas alterações a partir desta edição. A primeira de¬ 
las, e a mais patente , é a que se refere ao padrão gráfico-visual da revista. Apre¬ 
sentamos um novo logotipo valorizando mais o "Micro", porém, sem esquecer 
da importância do "Hobby" na vida de qualquer usuário. Afinal de contas, o 
primeiro contato de qualquer indivíduo com um microcomputador é realizado 
em suas horas de lazer. Esta nova aparência vem de encontro às nossas buscas 
por novas formas de comunicação, e de inovações na mensagem que transmiti¬ 
mos aos leitores. Assim sendo, esta edição já traz mudanças na imagem visual 
da revista, mostrando novo padrão de capa e estilo diferente de apresentação 
gráfica. Porém, estas alterações não ficarão restritas apenas à parte mais artística 
da Microhobby, mas se estenderão também à área editorial. Estamos buscando 
novos rumos que, temos certeza, virão de encontro aos interesses dos leitores. 

Durante algum tempo publicamos uma pesquisa que tentou captar o atual per¬ 
fil do nosso leitor, assim como a evolução pela qual passou desde o lançamento 
da revista. Percebemos então que a Microhobby vem desempenhando papel im¬ 
portante na vida do usuário dos equipamentos nos quais ela se especializou. 
Desde seu surgimento, há aproximadamente três anos, a revista atingiu a uma 
x faixa de público fascinada pelo novo "brinquedo" que oferecia, principalmen¬ 
te ao adolescente, toda uma gama de jogos eletrônicos de ação e aventura. Estes 
jogos cativaram até mesmo os conservadores contrários ao novo "Hobby eletrô¬ 
nico". Notamos nos resultados obtidos, mudanças no comportamento do usuá¬ 
rio frente a seu equipamento. Agora ele adota uma posição mais amadurecida 
com relação ao microcomputador, passando a utilizá-lo como um excelente ins¬ 
trumento de apoio em diversas tarefas. Extrapolando o lazer, o computador pes¬ 
soal chegou às atividades profissionais do indivíduo, atingindo as diversas áreas 
do conhecimento humano. 

Diante desta realidade, percebemos que nosso leitor tornou-se exigente, sain¬ 
do de uma posição de mero receptor de informações para uma posição atuante, 
sendo, muitas das vezes, o próprio emissor. Sentimos a necessidade de acom¬ 
panharmos estas mudanças através de um novo posicionamento que visa, prin¬ 
cipalmente, atender à sua evolução, levando a ele novos parâmetros em nossa 
mensagem, nos transformando e inovando a Microhobby. 

Estamos introduzindo novas abordagens em algumas seções como, por exem¬ 
plo, a seção Didática. A partir deste número ela buscará atender aos interesses 
e necessidades daqueles que utilizam o micro como instrumento de apoio didá¬ 
tico nas escolas. E nosso objetivo trabalhar junto com professores e alunos, no 
sentido de buscarmos a melhor maneira de utilização do micro nesta área. Por 
outro lado, outras seções como Usos de Micro e Clube dos Usuários se amplia¬ 
rão, paulatinamente, tentando fazer com que os leitores "conversem mais", uti¬ 
lizando como canal de comunicação entre si, a revista. 

É nosso objetivo darmos abordagem mais profissional a certas seções como, 
por exemplo. Explorando TK-2000 e Por Dentro do Apple. A seção de noticiário 
visará sempre o universo de informática, trazendo informações do Exterior sem 
esquecer da nossa realidade. Acompanharemos as novidades do mercado, co¬ 
mo o TK 90X. 

O que queremos com estas mudanças é nos tornar alguma coisa "viva", ativa 
e saborosa. Queremos trazer o usuário para a realidade de informática. Muito 
pouco tem se consultado o indivíduo quanto às suas aspirações com relação a 
tecnologia. Estamos buscando justamente sermos o canal, não apenas de comu¬ 
nicação — do tipo leva e traz — mas também, de participação, de atuação, não 
isolada e sim, em conjunto com o leitor! 

Ana Lúcia de Alcântara 
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CUBO ESPACIAL (TK 85) 


A imagem na tela representa a ''Vi¬ 
são Espacial" de um "Cubo" com qua¬ 
tro figuras em cada lado. 

0 jogo (desenvolvido pela RPA Soft¬ 
ware) é baseado nesta imagem , e seu 
desafio é construí-la apresentando uma 
visão tridimensional. 

Tome como base o seguinte: imagi¬ 
ne que o "CUBO" foi colocado sobre 
a tela e depois desmontado, ficando a 
"BASE" no centro e a "TAMPA" no can¬ 
to à direita. 

Para reconstruí-lo, simule em sua 
mente o movimento inverso, onde a 
imagem mostrada na tela apenas auxi¬ 
lie sua memória. 

Os Graus de Dificuldades 

Ao iniciar o jogo, veremos um "Cu¬ 
bo" organizado e composto de seis fi¬ 
guras iguais. 

Os graus variam de 0 a 9. 
Escolhendo-se o grau 0, o cubo apare¬ 
cerá organizado, desafiando outra pes¬ 
soa para resolvê-lo. 

A partir do grau 1, o "Micro" sortea¬ 
rá os movimentos possíveis, desorga¬ 
nizando, deste modo, o cubo inicial. 

Depois destes movimentos, o joga¬ 
dor deverá reorganizar o cubo nova¬ 
mente, tendo como meta vencer o jogo. 

Quanto maior for o grau de difilcuda- 
de maior será o seu trabalho em encon¬ 
trar a solução. 

Como Movimentar as Figuras do 
Cubo 

Existem doze movimentos para as fi¬ 
guras do cubo, representados por uma 
combinação de números de 1 a 6 e de 
letras de A a H. 

No centro de cada lado está o seu nú¬ 
mero correspondente. O sentido da ro¬ 
tação pode ser facilmente escolhido, se 
for imaginado que os lados do cubo, 
vistos de fora, têm o aspecto de um 
mostrador de relógio. 

Se o movimento acompanhar os pon¬ 
teiros, ele será "H"horário , se for in¬ 
verso será "A"anti-horário. 

Exemplo: O Movimento "1H",repre- 


Marcos Lorenzi 

senta a combinação do lado 1 (base do 
cubo) com sentido horário. 

Quando se ordena a movimentação 
de um lado do cubo, todas as metades 
dos quatro lados adjacentes, ou seja, 
duas figuras de cada lado, seguirão es¬ 
te movimento, pois o cubo é articula¬ 
do no centro, totalizando assim 12 fi¬ 
guras que mudarão de lugar. 

Realizado um movimento, o "micro" 
pedirá ao jogador que aguarde um pou¬ 
co. Se neste intervalo de tempo surgir 
em sua tela a seguinte mensa- 
gem:"BOA SORTE" - "VOCÊ ESTÁ SÓ", 
isto quer dizer que o "micro" não dará 
continuidade ao jogo, caso houver de 
sistência de sua parte. 

Como alcançar a vitória 

Você será congratulado pelo micro 
quando reorganizar todas as figuras do 
cubo espacial. 

Caso deseje ou não jogar novamen¬ 
te, use as seguintes teclas: "S"= Sim 
ou "N"= Não. 

Se o jogador desistir deve-se digitar 
"D" ao invés de fornecer outro movi¬ 
mento e o micro resolverá o jogo mos¬ 
trando a sequência de jogadas que re¬ 
sultará na solução. 

Durante o jogo, se houver necessida¬ 
de de rever as instruções, digite "I" ao 
invés de iniciar um novo movimento. 

Encerrada a consulta, o jogo se ini¬ 
cia a partir do ponto em que este foi in¬ 
terrompido, evitando assim que o joga¬ 
dor seja prejudicado. 

Conclusão 

Notamos que sua abertura é bastan¬ 
te simples mas, mesmo assim, trans¬ 
mite a idéia de ser um jogo muito inte¬ 
ressante. No topo da tela de apresen¬ 
tação aparecem as teclas que lhe au¬ 
xiliarão na leitura das instruções ou pa¬ 
ra iniciar o jogo de imediato. 

Tanto a tela de jogo como a de aber¬ 
tura foram bem dimensionadas, propor¬ 
cionando uma fácil leitura, para que es¬ 
ta não se torne demasiadamente 
cansativa. 

Este software está sendo comercia¬ 
lizado em fita cassete. 


Multifile (TK 90X) 

Fábio Augusto Polonio 

Desenvolvido e comercializado pela 
Multisoft Informática, "Multifile" é um 
programa aplicativo de formatação e 
gravação de arquivos em fita cassete. 

Destinado ao TK 90X e compatíveis, 
com 48kB de RAM, o programa permi¬ 
te boa flexibilidade de operação. 

Logo que é introduzido, o programa 
emite mensagens que orientam o usuá¬ 
rio em seu procedimento. 

Possue um bom conjunto de recursos 
que permitem a atualização e consis¬ 
tência de arquivos de maneira simples 
e imediata. 

Os dados são ordenados ascenden¬ 
temente e podem ocupar até 34581 
Bytes de memória. São acessados atra¬ 
vés do nome indicado pelo usuário na 
formatação dos registros. 


"Atenção, garotada 
do primário; este 
pacote é 

para vocês" itk 9ox) 

Fábio Augusto Polonio 

"Educativos" é mais um lançamen¬ 
to da Multisoft, na área de software 
educacional, desta vez destinado ao 
usuário do TK 90X. 

O pacote compreende três módulos, 
dedicados ao estudo das funções grá¬ 
ficas especiais do TK 90X e aritméti¬ 
ca elementar. 

De uma maneira interessante e ab¬ 
sorvente, o programa prende a atenção 
da criança com telas animadas e sono¬ 
rizadas, ao mesmo tempo que vai en¬ 
sinando a tabuada, subtração de núme¬ 
ros de dois algarismos (método vai-um) 
e formação de desenhos na tela, colo¬ 
ridos e em alta-resolução. Desperta a 
criatividade e a inteligência, permitin¬ 
do à criança participar das lições, num 
processo interativo. A própria criança 
determina o tempo e a linha de estudos 
o que a torna mais descontraída e sus¬ 
ceptível ao conhecimento. 
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ZARCON II, fabricado pela 

Multisoft Informática Ltda (TK 90X) Marcos Lorenzi 


Criado pela MULTISOFT INFORMÁ¬ 
TICA LTDA, Zarcon II é um dos inúme¬ 
ros jogos compatíveis ao TK 90X Co¬ 
lor Computer. 

Lançado no mercado em junho pas¬ 
sado, na mesma data do lançamento do 
equipamento, Zarcon II está junto aos 
inúmeros programas que constam da 
relação de softwares, destinado ao TK 
90X. O jogo está sendo comercializa¬ 
do em fita cassete. 

Ele pode ser operado pelo teclado ou 
usando joystick. 

A tela de demonstração dá ao usuá¬ 
rio uma idéia de como operar o jogo. 

A segunda tela, a de jogo, apresenta 
dois placares. 0 primeiro registra os 
pontos obtidos pelo jogador até o ins¬ 
tante em que este não for derrotado. O 


segundo irá registrar apenas a maior 
quantidade de pontos acertados pelo 
jogador. 

Logo abaixo do primeiro placar, 
encontra-se um indicador de quantas 
naves o jogador dispõe, ou seja, quan¬ 
tas chances ele tem para continuar 
jogando. 

Abaixo do segundo placar, encontra- 
se outro indicador, que mostrará quan¬ 
tas fases ele já superou. 

Seu objetivo consiste em destruir as 
criaturas alienígenas, algumas delas 
encontram-se incubadas em ovos. 

Certas criaturas só serão mortas, se 
for jogada a pedra em cima delas. Ou¬ 
tras, apenas com disparos de laser é o 
suficiente para matá-las. 

Observe na tabela 1 quais as teclas 


que você deve operar para conduzir sua 
nave ao ataque. 


TECLA 

DIREÇÃO 

7 

- 

6 

<- 

0 

TIRO 

9 

T 


CONCLUSÃO: 

Concluímos que este é um jogo de 
bom nível, onde as estratégias de ata¬ 
que e defesa bem estruturadas ajuda¬ 
rão você a vencer o jogo. 

Notamos também que as elabora¬ 
ções de tela foram muito bem criadas. 
As cores são usadas de maneira unifor¬ 
me, não provocando cansaço visual ao 
jogador. 

Tanto a nave como as criaturas foram 
bem definidas, não havendo problemas 
para distinguí-las. 

Enfim, um jogo interessante para a li¬ 
nha TK 90X, que irá prender a atenção 
de muitos "viciados'' em vídeogames. ■ 


TK 2000 & CIBERTRON: 

SEU MICRO EXPLORADO AO MÁXIMO. 


Os peritos em programas tem considerado o SOFTWARECIBERTRON para 
TK 2000 a melhor opção do mercado. Adquira o SOFTWARECIBERTRON e ve 
rifique você mesmo que não só os peritos notam a diferença. 

JOGOS 

GRAND PR IX (ACOMPftNHA ASTERÚIDS). 

_ ELIMINAT0R _ 

_ CEILING ZERO _ 

_ SPACE EGGS _ 

GAMMA G0BLINS (ACOMPANHA GALAXIANS). 

UTILITÁRIOS 

_ GRAPHS 2000 _ 

_ ROM 2000 (ACOMPANHA DISK-Z). 

T K - W 0 R D Efici ente processador de textos (destinado aos micros 
TK 85, CP 200 e Ringo) que permite a composição de car 
tas, textos e outros através de seus inúneros comandos. 

Sem dúvida, o melhor aplicativo do mundo já lançado pa 
ra a linha Sinclair Procure no MAPPIN e MAGN0DATA. 

Se você preferir,envie cheque nominal cruzado à CIBERTRON ELETRÔNICA LTDA - Caixa 
Postal 17.005 - CEP 02399 SP, para receber os programas em sua casa. Remessas em 3 
dias úteis JOGOS à &S23.900 - UTILITÁRIOS à 0r$29.800. Garantia integral. 


REVENDEDORES AUTORIZADOS: 

































































































































CARTAS 



Microhobby 

Av. Angélica, 2318/14? 

S&o Paulo 


Prezados Senhores, 


U com grande interesse o artigo de 
Ana Lúcia Alcântara e Vivian Bernardo 
denominado 1 ' Gabriela, o computador 
que aprende''publicado em sua edição n°. 
15. Devido ao interesse demonstrado pelo 
assunto, tenho o prazer de lhes prestar os 
seguintes esclarecimentos adicionais: 

Na realidade o primeiro protótipo de 
Gabriela I data de 1963, construído com 
306 caixas de fósforos. Em seguida, por 
uma questão de facilidade de manipula¬ 
ção, mas a partir da mesma idéia , cons¬ 
truímos o segundo protótipo formado por 
uma caixa de madeira contendo 14 reci¬ 
pientes plásticos com 306 cavidades. 

Este segundo protótipo era consti¬ 
tuído por duas Gabriel as, I e II, que po¬ 
diam brincar com o “jogo da velha '' con¬ 
tra opositores humanos, ou entre sí. Ga¬ 
briela I estava preparada para jogar lances 
ímpares e Gabriela II, os pares. 

Em 1965 a Eunbec interessou-se pelo 
tema, mas achou inviável a comercializa¬ 
ção das Gabrielas originais. Por esta ra¬ 
zão, preparei um protótipo capaz de ope¬ 
rar o jogo Peão 6 ou mini-damas, muito 
mais simples do que o jogo da velha e que 
demandava apenas 19 cavidades (corres¬ 
pondentes as situações de jogo) ao invés 
das 306. 

É claro que nestas condições o Kit 
distribuído pela Eunbec representa uma 
imagem muito pálida e reduzida, não só 
quantitativamente mas também qualita- 
tiv amente, do processo de “aprendizado ” 
das Gabrielas originais. Nos torneios que 
realizamos na época surgiram várias ques¬ 
tões interessantes que diziam respeito à 
otimização das condições de aprendizado 
por parte das Gabrielas I e II. 

As Gabrielas ‘ ‘ aprendem ' é verda¬ 
de, pelo método de tentativa e erro, ini¬ 
ciando a série de partidas sem nenhum 
algoritmo e, portanto, perdendo. Seu de¬ 
sempenho vai melhorando^ na medida em 
que os resultados de suas ações são incor¬ 
porados à sua ‘ ' memória ' \ 

O processo dos 1 prêmios ” e puni¬ 
ções * ’ (adicionar ou retirar bolinhas) não é 
linear, uma vez que a “consequência" dos 
erros é tanto mais grave e irreversível quan¬ 
to mais a partida aproxima-se de seu final. 
Assim, um erro no primeiro lance pode 
ser corrigido, o que não acontece com um 
erro nos lances posteriores. A gradação das 
' punições ' ’ deve levar em conta este fator 


para evitar dois inconvenientes opostos: a 
“ desistência" de Gabriela, por falta de 
recursos para continuar jogando, ou o 
aprendizado muito lento. 

Como todo este processo é probabi- 
lístico (os lances de Gabriela são sorteados 
aleatoriamente) só um grande número de 
partidas pode, â medida que variamos os 
parâmetros iniciais, indicar as referidas 
condições de otimização do aprendizado 
de Gabriela. 

Imagino que estes dados acondicio¬ 
nais possam motivar algum pesquisador a 
programar, no micro, o efetivo desempe¬ 
nho de Gabriela I e II. 

A velocffade das partidas e dos tor¬ 
neios, obtida d partir desta programação, 
permite atingir os verdadeiros objetivos da 
construção das Gabrielas: a compreensão 
e otimização de seu processo de “ apren¬ 
dizado ’ \ 

Dito isto, gostaria então de esclarecer 
o seguinte em relação ao referido artigo 
publicado no n°. 15 da MICROHOBBY: 

1 — O kit inicial da Eunbec foi lan¬ 
çado em 1967 e só continha o jogo Peão 6 
ou mini-damas. Conforme pode ser visto 
na página 4 de seu folheto explicativo, 
uma das três maneiras de se ganhar este 
jogo é atingir uma situação em que o ini¬ 
migo não possa se mover. Á vista desta 
regra, não procede a observação de Vivian 
Bernardo, do empate correspondente à si¬ 
tuação. 


Portanto, realmente não há empate 
neste jogo. De fato, o empate é um bom 
resultado no jogo da velha, mas não o é, 
porém, no caso do jogo mini-damas. 

Pelo que deduzi da leitura do artigo 
referido, a Eunbec deve ter lançado poste¬ 
riormente um Kit contendo 2 jogos: O 21 
e o mini-damas, ao qual associou o nome 
Çabriela. Este lançamento, porém, foi fei¬ 
to sem o meu conhecimento e nada tenho 
a ver com a programação do jogo 21. 

Isaac Epstein 
São Paulo, SP. 


Caro Professor, 

Agradecemos suas observações eluci¬ 
dativas a respeito do jogo Gabriela. Espe¬ 
ramos que as mesmas sejam um incentivo 
para nossos leitores aprimorarem a progra¬ 


mação do jogo em seus micros. 

Ficamos, ao mesmo tempo, felizes 
em saber que Microhobby é lida por pes¬ 
quisadores como o senhor, o que nos força 
a um desempenho cada vez maior, com o 
intuito de satisfazermos as evoluções de 
nossos leitores. 


“Caro Editor, 

Andei revendo as edições anteriores e 
notei a aparição regular de programas- 
agenda (agenda-telefónica, agenda dicio¬ 
nário), ou programas parecidos, todos 
usando as funções “D” do TK (DLOAD, 
DSAVE, DVERIFY), ou ainda programas 
que simulam estas instruções (aqudes que 
não são permitidos digitar RUN). 

Então, já que estes programas apare¬ 
cem regularmente e são de fácil entendi¬ 
mento e modificação, porque não criar a 
seção ‘ ‘Banco de Dados ” (se o nome não 
tiver sentido, desculpe-me). Poderia en¬ 
trar todos os tipos de computadores e, com 
uma simples modificação no programa, ter 
um outro arquivo. 

Outro problema é que de uns dias 
para cá, meu computador passou a aceitar 
a linha IF A = 10 THEN. Eu não dei ne¬ 
nhuma instrução após o THEN e ele acei¬ 
tou sem dar mensagem de erro. Agora 
pergunto: Isso pode vir a estragar meu 
micro ? 

Dizem que o TK 85 não possui som, 
mas após o programa Música por software 
comecei a pensar: será que o TK 85 pode 
gerar som no meio de jogos? Já coloquei, 
no fim dos meus jogos, a rotina que gera 
som e deu bons resultados, isto é, ficou 
interessante, embora não aparecesse ima¬ 
gem Slow. Seria possível colocar som em 
nossos jogos apenas por software ? ’' 

Fábio Ferreira de Paulo 
São Paulo — SP. 


Caro Fábio, 

Quando a instrução THEN é intro¬ 
duzida em uma linha qualquer de um 
programa, o computador não tem condi¬ 
ções de verificar se há algum erro, devido 
ao fato da instrução THEN aceitar várias 
funções. 

No momento de executar o progra¬ 
ma, o equipamento ignora a linha porque 
esta instrução tanto pode ser V como F ou 
desvio para outro ponto qualquer do pro¬ 
grama. 

Não se preocupe quanto ao seu micro 
porque se o problema fosse esse muitos 
micros estariam danificados. 

Agradecemos sua sugestão de criar 
uma seção de Banco de Dados na revista. 
Mas no momento, seções deste tipo não 
cabem na linha editorial mantida por Mi¬ 
crohobby . 

A partir da edição 18 da MICRO¬ 
HOBBY, inauguramos a seção “Clube de 
Usuários”, abrangendo usuários de Apple 
e principalmente os que possuem TKs e 
equipamentos compatíveis a este. Esta se¬ 
ção visa manter um relacionamento maior 
entre os usuários destes equipamentos. 
Como notamos seu interesse por este 
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assunto, tomamos a liberdade de incluí-lo 
em nossa seção Clube de Usuários. 

O TK 85 pode gerar som, mas por 
software. 

Existe também no mercado uma inter¬ 
face geradora de som, fabricada pela Mi- 
crodigital. 

Você poderá encontrar esta interface 
no revendedor Fotóptica em São Paulo. 

“Prezados Senhores, 

Sou assinante desta revista há pouco 
tempo e gostaria de mais uma vez para¬ 
benizá-los pelo excelente trabalho e parti¬ 
cularmente pelo programa Carla, publi¬ 
cado em setembro último. 

Foi um dos programas que mais me 
interessou, mas infelizmente sou um pos¬ 
suidor de um TK 2000 e minha experiên¬ 
cia é pouca, tanto que não consegui tor- 
ná -lo' compatível. 

Peço a vocês, assim como vários lei¬ 
tores, que pelo menos nos orientem para 
que isso seja possível. 

Augusto Barretto 
Campinas — SP. 

Caro Augusto, 

O programa Carla (publicado na edi¬ 
ção 12), por ser muito extenso e envolver 
algumas particularidades do TK 85, não 
permite uma simples adaptação para o TK 
2000, pois o TK 85 possui um funciona¬ 
mento de STRINGS todo especial, total¬ 
mente diferente do TK 2000, e que envol¬ 
ve ainda formação de tabelas (MATRI¬ 
ZES). 

Para que esta adaptação fosse possí¬ 
vel seria necessário refazer o programa in¬ 
teiro, sendo um trabalho muito complexo. 
Esta sugestão já foi discutida na redação e 
temos pensado em desenvolvê-la em edi¬ 
ções futuras. 

Como você mencionou em sua cana, 
você possui pouca experiência com o TK 
2000, peço-lhe então uma atenção espe¬ 
cial à seção Explorando o TK 2000 e Por 
Dentro do Apple, onde tratamos de as¬ 
suntos que poderão ser aproveitados para 
o seu equipamento. Com isso, talvez você 
passará a ter um maior domínio sobre seu 
microcomputador. 


Caro Editor, 

Peço-lhe maiores informações sobre o 
funcionamento da fita contendo os jogos: 
O POUSO DO BARÃO VERMELHO (2K) 
e P\CHOBBY (16K). 

Sandra Emília Bizaio 
São Paulo — SP. 

Cara Sandra, 

No primeiro jogo, onde você é o “Ba¬ 
rão Vermelho”, terá que pousar numa 
área que está repleta de obstáculos, que 
devem ser destruídos. 

As teclas que poderão ser usadas são: 
1, 2, 3, 4, 5 — movimenta o avião 
para baixo 


6, 7, 8, 9, 0 — movimenta o avião 
para cima 

B — Dispara as bombas 

Para carregar o programa use LOAD 
“BARÃO” 

No segundo jogo, o PAC-HOBBY, 
você será representado por um símbolo 
(*). Seu objetivo é comer o máximo de 
“Pontos” (.), e fugir dos “Monstros” 
( + ). 

Para você se mover, use as teclas: 

5 para esquerda 

8 para direita 

6 para baixo 

7 para cima, ou Joystick . 

O jogo tem nove níveis de dificulda¬ 
des (1 a 9), sendo primeiro nível o mais 
difícil. 

Para carregar o programa use LOAD 
“PAC”. 

“Caro Editor, 

Sobre o programa ‘'disco TK ' revis¬ 
ta n? 17, ao rodar o programa aparente¬ 
mente estava tudo certo, mas ao teclar N, 
pedindo um novo arquivo, ele me pedia os 
títulos. Eu os colocava e, ao invês de ir pe¬ 
dindo um por um (como indicado na re¬ 
vista), ele pedia as listagens e depois mos¬ 
trava: ARQUIVO REGISTRADO e vol¬ 
tava ao menu inicial. 

Por favor esclareça-me estas dúvi¬ 
das. ” 

Daniel Reis Galvão 
São Paulo — SP. 


Caro Daniel, 

Carregando o programa, será apre¬ 
sentado em seguida o menu com as ins¬ 
truções de uso. 

Como você irá iniciar seu arquivo, 
conclui-se que não há nada na memória do 
equipamento. Neste caso, apenas a tecla 
N será de importância no momento. Ela 
iniciará um arquivo. Ao ser pressionada, 
será apresentada em sua tela uma mensa¬ 
gem solicitando o número de discos do 
arquivo (1 a 40). 

Feito a digitação dos títulos, apare¬ 
cerá na tela a orientação para que você en¬ 
tre com a listagem das músicas de todos os 
discos (200 caracteres por listagem). 

A cada listagem pedida é mostrado o 
título do disco no núcleo. 

Terminado de inserir as listagens, 
aparecerá uma mensagem que o arquivo 
foi registrado e logo o Menu. 

Agora as outras instruções do Menu 
poderão ser acessadas . 

Usando a tecla “M” será apresenta¬ 
do todos os títulos das músicas. Se você de¬ 
seja a listagem dos discos, utilize a tecla L, 
ue pedirá o número correspondente ao 
isco desejado. Digite o número, em se- 
uida será apresentado na tela o título do 
isco e sua listagem. 

Finalizanao: a tecla “A” executa al¬ 
terações. Entre com o número do disco, 
em seguida o novo título do mesmo e sua 
listagem. 

A tecla “R” irá aumentar sua cole¬ 
ção e ainda seu arquivo, permitindo que 
você adicione novos títulos e listagem (le¬ 
tras de músicas). 


CLUBE 

DE 

USUÁRIO 


TK 82 Cl 83/85 

Eduardo Lopes da Silva 

R. Vilela Tavares, 269/casa 1 — Lins 

20.121 — Rio de Janeiro — RJ. 

Janas Marino Matuella Veiga 

Caixa Postal 315 

89.600 - Joaçaba - SC. 

Mauro Fraga 

R. Lizandro Nogueira, 1466/Cj. 1 
64.000 — Teresina — PI. 

Paulo Rogério da Silva 

R. José Geniolli, 418 — J. Casa Branca 

05842 - São Paulo - SP. 

TK 2000 

Celina Emília do Amaral 
R. Clarice Indio do Brasil, 38/601 
22230 — Rio de Janeiro — RJ. 

Cleber Conte 

R. Barão do Bananal, 915/casa 5 
Pompéia — Fone: 812-2034 
05024 - São Paulo - SP. 

Área de interesse: 

Linguagem de máquina 

Fábio Henrique Bei 
R. Groelândia, 1181 
01434 - São Paulo - SP. 

Guilherme João Muller 
R. Canadá, 213 — Caixa Postal 4163 
80.000 — Curitiba — PR. 

Jorge Pablo Zapata Rivera 
Al. dos Cajazeiros, 43 
Caminho das Álvores 
40.000 — Salvador — BA. 

Moacyr de Souza Mello 
R. Maria Antonia, 215 — apt. 11 
01222- São Paulo - SP. 

Nilton Oliveira da Silva 
R. Butiá, 52 

23.000 — Campo Grande — RJ. 

Walkir de Oliveira Ribeiro 
R. Tenente Cesar, 202/BI. 2 — BASC 
23.500 — Rio de Janeiro — RJ. 


Observação 

Para ter seu nome publicado, envie 
correspondência para: Microhobby, Clube 
de Usuários, Caixa Postal 54096, São Pau¬ 
lo - SP - CEP 01296. Indique o computa 
dor que possui, as interfaces e sua área de 
interesse. Nosso clube está aberto a usuá¬ 
rios de: TK-82/83, TK-85 e compatíveis, TK 
2000 e Apple e compatíveis. É bastante 
útil a sua opinião e sugestões para melho¬ 
rarmos esta seção, portanto escreva-nos. 
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TRIGONOMETRIA 

Fábio Augusto Polonio 


Não há quem não trema quando o assunto em pauta em 
qualquer conversa é trigonometria. 

Esse "amontoado de fórmulas" já foi motivo de muitas 
notas baixas e consequentes reprovações nos cursos de se¬ 
gundo grau e superior, (inclusive eu já fui vítima). 

A trigonometria, no entanto, é uma parte da Matemática 
muito interessante. Ela relaciona triângulos e círculos e mui¬ 
tas conclusões podem ser tiradas a partir desses elemen¬ 
tos - e com grande número de (ARGHM) Fórmulas. 

Mas o fato é que não necessitamos decorar fórmulas pa¬ 
ra sabermos trigonometria. Basta um pleno conhecimento 
do círculo trigonométrico que, a partir dele, deduzimos to¬ 
das as fórmulas. 

Tomemos então o ciclo trigonométrico. 



A projeção do ângulo nos eixos x e y determina, respecti¬ 
vamente, cosseno e o seno. Paralelo ao eixo dos senos te¬ 
mos o eixo da tangente e paralelo ao eixo dos cossenos es¬ 
tá o da co-tangente. 

O programa "Funções Trigonométricas" desenha as pro¬ 
jeções do ângulo introduzido pelo usuário nos eixos trigo¬ 
nométricos, determinando o seno, cosseno, tangente e co- 
tangente do ângulo, no círculo trigonométrico. 

Você seria capaz de aperfeiçoá-lo, para que este forneces¬ 
se também os valores de cada função? 

Acredito que sim! 


1 REM FUNCOES TRIGONOMÉTRICAS 
_2 FOR S=8 TO 7: READ X: POKE 
USR " +5 , x ; NEXT S 

3 DffTfi 56=68.68,56.0,0.0.® 

A PkINT "ESTE PROGRAMA DÉM0N5 

tha nu circulo trigonométrico rs 
funcoes seno.cosseno.tangente e 

COTANGENTE " 

5 rOH q = i TO 583: NEXT q 

6 LET K=8: LET C =8 

7 OLS 

18 CIRCLE 128=88,58 
13 PRINT P;T 18,23 ; "8“ ; ” 

15 PRINT AT 3.15;"90";" 

17 PRINT AT 18,5;"183";" 0 " 

13 PRINT AT 18■14;"278"; 

21 INPUT "qraus " ;3 

22 PRINT AT 28,8; "GRAUS = ";a 

23 IF Ca/S0) <>INT í a/98) THEN 
GOTO 38. 

25 Ir (Ca/30)/2)=INT i(3/98)/2 
) THEN LET C =1: PRINT AT 2,0; FL 
hSH 1; " co tanaen te infinita": GCu 
0 38 

26 PRINT AT 2,8; FLASH 1;"tang 
ente infinita": LET K=1 

38 LET a =a /188-sPI 
48 LET y =5IN a*58: LET X =005 3 
458 

58 PLOT 123=38: DRAU X , M : DP.AU 
0 .-y: DRAU -X.0 

55 IF f: =1 THEN GOTO 78 
58'LET t=TAN 3458 

59 IF ABS t >83 THEN PRINT AT 1 
,8; i-LASH l;"tanqente fora da te 
la": GOTO 78 

68 PLOT 173,83: DRAU 8,t: DRAU 
-58,-t 

65 IF C =1 THEN GOTO 98 
78 LET C t = i00S a/SIN a) 458 
75 IF ABS C t >128 THEN PRINT AT 
18.; FLASH 1.; “ co t angen te f o r a d 
a tela": g ü i u —■ 8 

88 PLOT 128-.138: DRAU C t , 3 : DR 
AU -Ct,-58 

9 8 iN PUT "o ut r o (a /n)";a $ 

100 IF a 4 = "n“ THEN STOP 
118 GOTO 6 
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FUNÇÃO 

M 

Marcos Lorenzi 


Destinado ao TK 90X, o programa define os intervalos da 
função F(X), no instante em que passa pelo eixo "X", po¬ 
dendo ser alterado para maior ou menor. 

O programa demonstra graficamente o traçado de uma 
função F (X), sendo bastante simples, como poucas instru¬ 
ções. Apresenta também uma boa resolução gráfica. 

Como funciona 


Os valores de "Y" se convertem em coordenadas do eixo 
Y para que o ponto seja traçado. 

Considerando a posição de cada ponto como uma unida¬ 
de, o eixo "Y" está compreendido entre o intervalo de -11 
a 10,875. 

Caso se deseje variar o intervalo que há entre os pontos 
traçados, modifique a linha 70 apenas trocando o STEP 1 
por STEP 2 ou STEP 0.5. 


O programa pede que se introduza uma função F(X), que 
é armazenada em forma de STRING. 

Em seguida é dado valores a "X" entre -15,8 e 16. 



Exemplo: 

3*X*X + 10*X-27;X*X; X*SINX; 7/X 


IS HEM Desenho de una rune ao 
30 5ÜRDER 6: PRPER 7: BRIGHT 1 
INK 0 
35 CL5 

40 SÜÜND ,2,-5: INPUT RT 0,0;“ 
Es co lha uma Fun cao ’*, “y = “ ; y $ 

45 PR IMT RT 0.3 ; ” 4 = ” ; M $ 

50 PLÜT 127:0: DRRU 0,175: PLü 
T 0,33: DRRU 253.0 

50 PRINT RT 11,0 ; -XRT 11,31 
; "X" ; RT 0:15; :: Y :: ; RT 21.16; “-Y” 

70 FOR X = -15 .3 TO 15 5TEP .1 
30 LET M=URL M±. 

30 IF 4 >10,375 GR ‘4 <-11 THfcN G 
OTO 130 

100 LET a=INT C127 + X *3) 

110 LET b=INT (33 HM *33 
120 PLOT a : b 
130 NEXT X 

140 50UMD ,2,-5: INPUT RT 1,0;“ 
De se .1 a Re c o m e c a r ? (5 /M 3 “ ; r $ 

150 IF f$ = ;i 5 :: THEN GOTO 35 m 


256 CORES 

Criação de cores baseando-se 

a 

na capacidade gráfica do TK 90X Marcos Lorenzi 


Este programa simula um arco-íris, baseando-se na capa¬ 
cidade gráfica do TK 90X. 

Produz uma excelente resolução gráfica, o que possibilita 
a reprodução de 256 cores na tela. 

Estrutura do Programa 

LINHAS 20 e 60: definição de variáveis 

LINHAS 30-40-50: definição de gráficos: 'A" - linhas ho¬ 


rizontais; "B" - linhas verticais; "C" - pontos na forma de 
um tabuleiro de xadrez. 

LINHAS 70-80-90: definição de variáveis alfanuméricas, 
para serem utilizadas como desenho de fundo. 

LINHA 110: o computador pergunta qual tipo de gráfico 
que será escolhido. 

LINHAS 120 e 140: dependendo do tipo de gráfico esco¬ 
lhido na linha 110, a variável é atribuída como informação 
gráfica à P$, para ser utilizada na linha 210 do programa. 
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LINHAS 150 - 160: definição do tempo (PAUSA) entre um 
bloco e outro durante a impressão e qual o número de linhas 
por bloco impresso. 

LINHAS 110 a 260: "LOOP" principal, combinando todos 
os valores de: F(FLASH); B(BRIGHT); P (PAPER); l(INK), mais 
o POKE 23692,255 utilizado para evitar SCROLL. 

LINHAS 270 a 320: - opções: repetir o "LOOP" principal 
com os mesmos valores; repetir introduzindo novos valores; 
fim do programa. 


NOTAS GRÁFICAS 

LINHA 70: corresponde ao gráfico A. 
LINHA 80: corresponde ao gráfico B. 
LINHA 90: corresponde ao gráfico C. 


OisiiiLi 

mmxTCXi 


iiSSüSi 


c xrrrn Ti 

iiiiflil 

lLCLG-Lü 

iisiaiis 

□xnxm 


CARACTERE A 



■SlSSslü 

CARACTERE B 


O 



CARACTERE C 



2 PRINT “flquards um Momento" 

10 REM 256 Cores 

20 LET 3 $ = “ " : LET b$=“”: LtT C 

30 RESTORE 30: POR 3=0 TO 3*3- 
1: READ X: POKE USR “3"+3,X: NtX 
T 3: DATA 0,255,0,255,0,255,0,25 
5 

4-0 DPTA 35,35,35,35,35,85,35,8 

58 DRTR 170,35,170,35,170,85,1 
70,35 

60 LET X =3: LET V=3: LET 0=1 

70 POR 3=0 TO 31: LET 35=3$+“= 
": NEXT 3 

30 FOR 3=0 TO 31: LET fc,$ = b$ + ,, P 
": NEXT 3 

90 POR 3=0 TO 31: LET C $ = C 5 + "0 
": NEXT 3 

100 PRINT “256 Cores" 

110 INPUT "Ou3 L o Tipo de Gr 3 ri 
CO? (1-3) " ; 0 : IP o 1 OR 0 >3 THEN 
GOTO 110 

120 IP 0=1 THEN LET p5=3$ 

130 IP 0=2 THEN LET P$=b$ 

140 IP 0=3 THEN LET P$=C5 
150 IN PUT "0 U 3 l Te MP 0 P 3 r 3 P 3 U S 
3?"; t 

160 INPUT "Qual o Numero de Lin 
h 3 p or Co r ? (1-21)";v: IP v<1 OR 
V >21 THEN GOTO 160 
170 POR f =0 TO 1 
180 POR b = 0 TO 1 
190 POR P =0 TO 7 
200 FOR i=0 TO 7 

209 IP INKEY 4 = " g " OR INKEY$="Q" 
THEN GOTO 27Ó 

210 POR X =1 TO V: POKE 23692,25 
5: PRINT FLASH í; BRIGHT b; PPiPE 
R P INK i ; p 5 ; : NEXT X 

220 PAUSE t 
230 NEXT i 
240 NEXT P 
250 NEXT b 
260 NtXT f: CLS 

— ,■* L.í PRINT h i I0,0i" D esc ,_j 3 R e p e t 
ir o Desenhoí1)" 

271 PRINT AT 11,0;"Deseja Alter 
ar os Uatores(2)“ 

272 PRINT AT 12 , 0 ;“Deseja sair 
do Programa(3)" 

280 LET i$ =INKEY $: IF i$ = “" THE 
N GOTO 280 

290 IP URL i$ <1 OR UAL'i5 >3 THE 
N GOTO 280 

300 IP i5=“1“ THEN GOTO 170 
310 IP i5= 2“'THEN GOTO 100 
320 CLS : STOP 
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Álgebra Booleana 


Fábio Augusto Polonio 


Para sabermos como um computador fuciona, devemos 
ter em mente dois conceitos: o de sistema e o de lógica 
simbólica. 

Lógica é um conjunto de estudos que expressam, em lin¬ 
guagem matemática, as estruturas e operações do pensa¬ 
mento. A finalidade da lógica simbólica é mecanizar os ra¬ 
ciocínios lógicos. Sistema é a reunião de elementos e pro¬ 
cedimentos que, interliga dos e inter-relacionados, provêm 
de um determinado campo de ação. 

Um computador que processa as informações através de 
um algoritmo matemático é um sistema lógico. 

Sistema Lógico 

Imaginemos em circuito de interruptores e lâmpadas liga¬ 
dos a um gerador. (Fig. 1) 



Para acendermos uma determinada lâmpada devemos ado¬ 
tar um certo procedimento de fechamento de chaves. 

Por exemplo, quando A está acesa, as chaves 1 e 3 de¬ 
vem estar fechadas. Observe que cada lâmpada é uma res¬ 
posta a um determinado procedimento. 

A linha de raciocínio do circuito parte da resposta para o 
procedimento ou ação. Por exemplo: quando queremos acen¬ 
der a lâmpada D, fechamos os interruptores Z e G. 

Baseando-se na mesma concepção é desenvolvido 
computador. 

Analisa-se quais as funções que o microprocessador de¬ 
ve exercer e, a partir destas, projeta-se sua arquitetura in¬ 


terna. O projeto de computadores sempre parte do Softwa¬ 
re para o Hardware. 

Todo projeto de microprocessadores é apoiado na lógica 
simbólica, que por sua vez tem a Matemática como base 
de estudo. 

Álgebra Booleana 

Criada pelo matemático George Boole, a Álgebra Boolea¬ 
na é a parte da matemática destinada à análise e projeto de 
sistemas lógicos. Ela compreende um universo matemático 
completo, com seus próprios símbolos e regras. Há uma certa 
similaridade com a álgebra comum, porém, algumas regras 
são exclusivas. 

As letras do alfabeto são usadas para representar variá¬ 
veis, quantias cujos valores (0 ou 1) podem ou não ser 
determinados. 

A álgebra booleana verifica a validade de sentenças e con¬ 
dicionais através de funções lógicas. Existem três funções 
básicas: AND, OR, NOT que, combinadas, formam o univer¬ 
so das operações booleanas. Vejamos como funciona tudo 
isso. 

Tomemos a frase: -'Se João estudar e comparecer à es¬ 
cola irá bem na prova". 

Obtêm-se as afirmações lógicas que compõem a sentença: 

João estudar = A 

Comparecer à escola = B 

Irá bem na prova = C 

Atribuindo-se o valor 0 às afirmações quando estas fo¬ 
rem falsas e o valor 1 quando forem verdadeiras, temos con¬ 
dições de tabular os dados obtidos montando assim uma 
tabela-verdade. 


TABELA I FUNÇÃO AND 


Afirmações 

A 

B 

c 

Significado 

Valores 

0 

0 

0 

Se A é falsa e B é falsa, então C é falsa 

0 

1 

0 

Se A é falsa e B é verdadeira, C é falsa 

1 

0 

0 

Se A é verdadeira e B é falsa, C é falsa 

1 

1 

1 

Se A e B são verdadeiras, então C é 
verdadeira 


Olhando a tabela 1, repare que o valor de C está em fun¬ 
ção dos valores de A e B. Sendo assim, A e B são as condi¬ 
cionais de C. Isto quer dizer que dependendo dos valores 
de A e B e do parâmetro implícito na função lógica utiliza¬ 
da, acha-se o valor de C. 

No caso da função AND, C só será verdadeira se, e so¬ 
mente se, A e B forem verdadeiras. 
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_ Função OR _ 

Tomemos agora a sentença: 

Se João estudar ou colar, irá bem na prova. 

Divide-se a sentença em unidades lógicas. 

João estudar = A 
João colar = B 
Irá bem na prova = C 

Montamos a tabela verdadeira obedecendo os mesmos pa¬ 
râmetros anteriores. 1 - verdadeiro e 0 - falso. 


Tabela Verdade 



Função OR 

Afirmações 

A 

B 

C 

Significado 


0 

0 

0 

Se A é falsa ou B é falsa, 
C é falsa. 


0 

1 

1 

Se A é verdadeira ou B é 
verdadeira, C é 


1 

0 

1 

verdadeira. 


1 

1 

1 

Se A ou B forem verdadei¬ 
ras, C é verdadeira. 


rada como função básica. 

Ela é semelhante à função OR, diferindo apenas por re¬ 
presentar eventos mutuamente exclusivos, isto é, quando 
um ocorre, o outro não ocorre e vice-versa. 

EX: "Tenho dinheiro para tomar um sorvete ou um 
refrigerante". 

Afirmações 

A - Tomar um sorvete 
B - Tomar um refrigerante 
C - Tenho dinheiro 


A 

B 

C 

Significado 

0 

0 

0 

Se A e B forem falsas, C é falsa. 

0 

1 

1 

Se A for falsa e B verdadeira, C é 
verdadeira 

1 

0 

1 

Se A for verdadeira e B falsa, C é 
verdadeira 

1 

1 

0 

Se A e B forem verdadeiras, C é falsa. 


Novamente o valor de C está em função de A e B, porém, 
sendo outra a função lógica; outros são os valores 
assumidos. 

Função NOT 

A função NOT é uma porta inversora que toma como re¬ 
sultado o inverso de uma sentença. 

Ex: "Se João colar (e) o professor não perceber: irá bem 
na prova". 

João colar = A 

Professor perceber = B 

Irá bem na prova = C 

Note que para C ser verdadeiro, B não pode ser verdadei¬ 
ro pois, ao contrário, a sentença não seria válida (não obe¬ 
deceria às regras lógicas). Além disso, está implícito na fun¬ 
ção AND que para o valor de C ser 1, ou verdadeiro, é ne¬ 
cessário que A, e não B, também seja verdadeiro. 

Tomamos então a inversa de B, usando, para isso, a fun¬ 
ção NOT 


Tabela Verdade 

A 

B 

NOT B 

C 

0 

0 

1 

0 

0 

1 

0 

0 

1 

0 

1 

1 

1 

1 

0 

0 


Programa 

Podemos combinar infinitas proposições interligadas pe¬ 
las funções booleanas. A partir da análise feita entre esses 
elementos inter-relacionados, obteremos um resultado que 
poderá ser 1 ou 0. 


FUNÇÃO 

AND 

PORT 

A 

B 

H LÓGICA 

: ;—« 

OR 

:——r> —* 

NOT 

A . 00“ NOT. A 


EX-OR 

ou - exclusivo 

A -| 

A - 

=>H ^ 

u- 

OBS. PORTAS LÓGICAS SÃO REPRESENTAÇÕES ELETRÔNICAS DAS FUNÇÕES BOOLE. 

FIG.2 


Observe os resultados obtidos e verifique que C depende 
do valor de A e NOT-B, ou inverso de B. 

Em outras palavras, para que João vá bem na prova é ne¬ 
cessário que ele cole e o professor não perceba. 


Função OR Exclusive 

A útima função que veremos, OR-exclusive, é, na verda¬ 
de, uma combinação das outras funções estudadas, enca¬ 
deadas num circuito lógico. Por ser muito usada, é conside- 


0 programa "funções Booleanas" analisa até seis propo¬ 
sições inter-relacionadas por 5 funções. Ele monta uma ta¬ 
bela de verdade com todas as possíveis combinações, ob¬ 
tendo um resultado. Ele é auto explicativo e não possue maio¬ 
res detalhes de digitação. 
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100 REM TABUfi COMPLETA DE UMA 
FüNC PO LOG1CA íBO O t £ 3 
110 DIM b C63 : DIM g C 53 

1 i=i O P U K = 'd. *3 5 0 5 ; B 0 
130 GOTO 260 

13 5 R t M c 3 i c u i o c o m b i n a c a o b i n a 
r i a 

14-0 FOR i =1 TO V 
150 LET C=INT (n/2) 

160 L=T b íi3 = (O AND C =n/£3 + (1 A 
ND con/23 

170 IF C =0 THEN LET X=i: GOTO 2 
00 

160 LET n=C 

190 NEXT i 

200 LET Ví ="000000“ 

210 FOR i=X TO 1 ST ER -1 
220 LET ví = V 5 +STR$ (b íi3 3 

23© NEXT i 

240 LET V $ = V $ £ LEN VÍ-V+i TO 3 
250 RETURN 

255 REM ENTRADA DE DADOS 

2 6 O SOU ND ,3,20: INP UT "O U 3 nt 3 £ 

V 3 r i 3 V £ i £ £ 3 O í 1 3 6 3 '? " ; V 

270 IF V <1 OR V >6 THEN GOTO 260 
230 PRINT ‘• U3 r13 V £ 1 £ : : 

290 LET v $ = '•" 

300 FOR i=1 TO v 

310 LET V$=V$+CHK$ £96+i3 

320 NEXT i 

330 PRINT ví 

34-0 PRINT "-■" 

350 LET q=0 

360 PR INI : ' =£ C r £ V 3 3 f U n C 3 o L o g 
1 a h U £ £• £ d £ £ £ j 3 C 3 l C U l 3 f '' 

370 PRINI "NOTA. funC 30 (EXOR3 =<X 

380 INPUT LINE aí 

390 IF 3 Í="X" THEN LET q=l: LET 

3 í = "XOR" + "("+vS + "3 " 

•4-00 CL 6 

■4-10 PRINT s í 

4-20 PRINT : PRINT V$."S": PRINT 


4-25 RtM C3 L CU LO£ 

4-30 DEF FN f í (3 =3 $ 

4-40 L=T p =0 

4-50 FOR Hi =0 TO 21V -1 

4-60 L=T p=p+l 

4-70 LtT n =iH : GOSUB 140 

480 Ir 4=1 THEN GOTO 540 

490 FOR i=1 TO v 

500 LbT q (i 3 =UAL Ví íi 3 

510 NEXT 1 


=20 LET 3 =g (13 : LET b=q(23: LET 

C=g (33 : LET d =q (43 : LET £ =q (53 : 

L=T f =q (53 

530 GOTO 580 

535 REM EXOR 

540 LET 3 $ = "0" 

550 FOR i=1 1 O V 

= 60 LET 3 $ = £"1" AND V $(i3 < > 3 $3 + 
("0" AND V í ( i3 =3 í 3 
570 NEXT i 

= 75 REM AP r ££ £n 1 3 C 3 O dOS f £ £u 11 
3 d O £ 

=80 PRINT AT p+3.0;Ví,UAL FN fí 

(3 

590 IF P =16 THEN PRINT AT 21., 0; 
“Z para imprimir-C para segui r ": 
STQP 

600 IF p =16 THEN LET P =0: CLS 
610 NEXT m 

620 IF V < 4 THEN PRINT AT 21., 0 .;" 
Z para imprimir-c para sequir": 
STOP 

6 3 0 PRINT Ai dl ., 0 .; ••' 0 u t r a (£ / n 3 ? 

640 SOUND .3,20: PAUSE 0 
650 IF INKEY $<>"£" AND INKEY í<> 
"n" THtN GOTO 640 
650 IF INKEYÍ="£" THEN CLS : GO 
TO 250 

670 POKE 23609,0: OLEAR 


a AND b 

GR c fi ND d 

OR ê 

3 b C d £ í 

3 


000000 

0 


000001 

0 


000010 

1 


000011 

1 


000100 

0 


000101 

0 


000110 

1 


000111 

1 


001000 

0 


001001 

0 


001010 

1 


001011 

1 


001100 

. 1 


001101 

1 


001110 

1 


001111 

1 


Z p a r a 

i fii P f i in i r -C 

P a r a í- e g u i r 

■ 
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NÚMEROS PRIMOS 

Fábio Augusto Polonio 


O cálculo de números primos é uma tarefa um tanto te¬ 
diosa, a menos que se tenha um TK 90X à mão. 

Com este programa podemos determinar todos os núme¬ 
ros primos compreendidos entre dois números inteiros 
quaisquer. 

Através do limite inferior do intervalo, introduzido pelo ope¬ 


rador, ele investiga todos os números ímpares calculados a 
partir deste limite. 

Para diminuir o número de verificações condicionamos o 
computador a investigar somente números ímpares, 
dividindo-os por uma variável de três até sua raiz quadrada, 
(linha 70). 


FLUXOGRAMA BÁSICO 



5 REM M NUMEROS PR IMOS" 

18 PAPER 4 BRIGHT 1: PRINT “P 
ROGRAMA PARA VERIFICAR OS NUME-H 
OS PRIMOS COMPREENDIDOS ENTRE D 
OIS N U MER OS INTEIROS P 0SITI U O S." 
: PRINT 

28 DIM Ni5) 

25 PAPER 7: BRIGHT 8 
38 INPU1 "entre o (.imite infer 
i o f " ; n 

35 IF £n/2 5=1NT £n/2 5 THEN L ET 

n =n +1 

48 INPUT " En t re o l i m i te super 

i o r " ; rn 

45 IF (m/ 2)=INT (ffi/2) THEN LET 
M =M 41 

58 LET C=8: LET »=a+i 

68 LET L=0 

78 LET ,i=INT £SQR n) 

•30 FOR R. =3 TO .i STEP 2 
98 LET L = INT (n/R) 

188 IF l 4 R -n > =8 THEN GOTO 148 

110 NEXT R 

120 LET C=C4l 

130 LeT n £ c5=n 

140 LeT n=n42 

150 IF c-5=8 THEN PRINT TAB _2;n 
£15 ;TAB S;n£2);TAB 14;n£3);TAB 2 
O;n (45 ;TAB 2S;n £55 LET C=0: hOR 
i=1 TO 5: LET n£i5=8: NEXT i 
160 IF m- n >8 THEN GOTO 78 
170 IF C=8 THEN GOTO 198 
ISO PRINT TAB 2; ní 15.; TAB 3;n(25 
; TAB 14 ; n £ 3 5 ; TAB 28 J n £ 4 5 ; TAB 26 
n (55 

198 PRINT 

288 PAPER 3 BRIGHT 1: PRINI " 

F I M D O P R O G R A M A 

285 BRIGHT 8: PAPER 7 

218 STOP . 
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HOBBYSHOP 


VEJA SE SUA CIDADE TEM O QUE VOCÊ PRECISA 


SÃO PAULO 


MICRO 


Service 


Inclusão de 24 novas funções (Read, Data, etc.), 
Slow, High Speed, Alta Resolução, Porta de 1/0, etc. 
para micro de tecnologia SINCLAIR ZX81. 
Manutenção de microcomputadores SINCLAIR (TK 
82,83, 85, etc.) eTRS. 

Wilson de Assis — Tel.: 203-7967 


TKSOMTKMORSE 


2 Software de alta qualidade para Micros Sinclair com 16 K 

TKSOM — coloca som no seu micro; contém 6 músicas; você pode programar suas 

músicas. 

TKMORSE — lista sua mensagem em código morse; transmite sinais sonoros de men¬ 
sagem pré-gravada; transmite sinais sonoros simultaneamente com a digitaçSo. 

Preço até 30-06-85 Cr$ 28.000 

Envie cheque nominal para: 

MÁRCIO ACCIOLY 

Rua Dr. Saboia de Medeiros, 199-54 — Cep 04120 — São Paulo — SP 
e receba os 2 Software pelo correio, sem mais nenhuma despesa. 

PREÇOS ESPECIAIS PARA REVENDEDORES. 



Transforme seu TK 85. 

O mesmo efeito dos 
monitores de vídeo. 

Fundo: preto 
Letras: brancas 

Com uma simples modificação 
no microcomputador. 


TRANSVIDEO Fone: (011)522-8100 


EFXJE Comércio de Computadores Ltda. 
■■■ TK85 x TK2000? 

Só na ENG você adquiri o seu TK2000 nas me¬ 
lhores condições e ainda dá o seu velho TK83, 
TK85 ou CP200 como parte de pagamento. 
TK2000 é na ENG. Showroom - Tel. 813-7570. 
Av. dos Tajurás, 406 — CEP: 05670. 



cippkz cursos 

CURSOS DIRIGIDOS DE 
MICROCOMPUTADORES 


• BASIC I e II e Applesoft 
• ASSEMBLER 6502 

• EDITOR DE TEXTO E PLANILHA ELETRÔNICA 


NOVAS TURMAS (c/ 12 alunos) 

INÍCIO IMEDIATO 


Reservas pelos Telefones: 853-9457 — 853-2408 Rua Suzano, 78 — Jardim Paulista — S3o Paulo 




lOflTP 

informática. 




GO** ^ 


PROGRAME-SE! 

Faça como os funcionários da SABESP, BURI, KIBON e outros. Venha desvendar o 
computador da DATA RECORD INFORMÁTICA. 

COBOL - BASIC - DIGITAÇÃO 

Turmas especiais para crianças de 8 a 14 anos. (BOLSAS DE ESTUDO) 

Av. Santo Amaro, 5.450 — Tel. 543-9937 — Brooklin — (em frente ao E.C. Banespa). 


QUAL A INTERFACE QUE ESTÁ FALTANDO 
NO SEU MICRO? 

É AQUELA QUE LHE DEVOLVERÁ O PRAZER DE FICAR EM FRENTE DO SEU 
MONITOR POR TEMPO ILIMITADO. 

MICROTELA possibilita que você continue com seu TV, pois possue a mesma tela de 
poliester utilizada nos monitores de última geração, filtrando e eliminando os reflexos, ao 
mesmo tempo que aumenta a resolução da imagem. 

Adicionalmente proporciona o mesmo efeito repousante dos monitores de fósforo colo¬ 
rido, utilizando acrílico nas tonalidades verde e ambar. 

Informações com MASTER STING LTDA. 

Caixa Postal 18708 — São Paulo — SP 


SUPRIMENTOS P/INFORMÁTICA 


«FORMULÁRIOS 
*DISKETES * FITAS IMPRESSORAS 
* PAPEL XEROGRÁFICO 
^SUPRIMENTOS P/TELEX E ESCRITÓRIO 

INF0RMAX -PRODUTOS P/ INFORMÁTICA LTDA. 

R.Domingos de Morais,254-6?and. Cj.602-A 
Tel. (011) 570.7570 


SÃO JOSÉ DOS CAMPOS 


EKTRONIC - COMPONENTES E SISTEMAS LTDA. 

"SOFT-LOADER" — Interface micro-cassete para TK 82-C, 83, 
85 e Ringo. Indica nível certo para carregar programas sem proble¬ 
mas e falhas. (Veja Microhobby N? 10, 12 ou 13). Já um GRANDE 
SUCESSO PROVADO por centenas de usuários do TK. PREÇO: 
Cr$ 49.000,00 (Março). 

Mande seu pedido com cheque nominal ou vale postal para 
EKTRONIC COMPONENTES E SISTEMAS LTDA. Caixa Postal 
7004. São José dos Campos. CEP: 12200. Tel.: (0123) 291148. 


BAHIA 


Sua empresa poderia estar aqui. 

Anuncie no HOBBYSHOP e todos os Lei¬ 
tores da região conhecerão sua empresa. 
Anúncio econônico e de retorno garantido. 


RIO DE JANEIRO 


PROSERV-Processaiento Dados.Cursos e Rep.Ltda. 
.MICROCOMPUTADORES (Novos t Usados) 

.CURSOS (Cobol. Dasic. CP/N. DDase II) 

.SUPRIMENTOS (Fonularios. Disquetes. Fitas, etc.) 

.LIVROS E REVISTAS 

.SOFTWARE (TRS80. Apple. TK85) 

Lq.Nove de Abril 27 salas 626/628 
Tel: (0243) 429800 - V.Redonda - RJ 


li 


MINAS GERAIS 


MICRO E VIl)F O 


II 


Curso de Basic com turmas mensais 

Programas para toda linha de microcomputadores — Sinclair, 
TRS-80, Apple, TRS Color, Comodore CP/M — Aplicativos e Jo¬ 
gos (Solicite catálogo especificando seu equipamento). 

Livros e revistas nacionais e estrangeiros. Venda de Micros, peri¬ 
féricos e suprimentos. Soft House. 

VILLABELLA SHOPPING - LOJA 6 

Avenida Japão, 229 — Cariru — CEP 35160 — Fone (031) 821- 
2888 — Ipatinga — MG. 













































Introdução 


DISTRIBUIÇÃO 
ELETRÔNICÁ DO 
ÁTOMO 

Marcos Lorenzi 


A configuração eletrônica por subníveis de um átomo in¬ 
dica a ordem crescente de energia de todos os subníveis, 
onde cada um deles possui uma quantidade máxima de elé¬ 
trons, conforme mostra a tabela 1. 


TABELA I 


subn ível 

s 

P 

d 

f 

n? máximo de elétrons 

2 

6 

10 

14 


Usando TK 90X para a 
Configuração Eletrônica dos 
Átomos 

O programa pede que se introduza um número atômico 
de um átomo qualquer. 

Em seguida, a estrutura eletrônica do átomo é apresenta¬ 
da na tela, correspondendo ao número atômico que foi 
escolhido. 




Admite-se números inteiros a partir de 1 a 118, embora 
alguns não existam. 

O POKE utilizado na linha três foi apenas introduzido pa¬ 
ra dar um efeito sonoro durante o funcionamento do 
programa. 


Tendo conhecimento do diagrama de PAULING e a quan¬ 
tidade máxima de eletrons por subnível, pode-se distribuir 
corretamente os eletrons da etrosfera do átomo. Ex: (1) 
Através da distribuição, podemos saber o número de ele¬ 
trons contido em cada camada ou nível de energia. 

Apenas como forma de conhecimento, admite-se que um 
átomo qualquer apresenta o seguinte subnível. 



Ao distribuirmos um determinado número de eletrons em 
um átomo, devemos nos lembrar que “os eletrons são dis¬ 
postos em ordem crescente de energia", isto em qualquer 
circunstância. Isto porque: 

QUANTO MENOR MAIOR SERÁ A 

FOR A ENERGIA ESTABILIDADE 


NOTA 

Apenas superficialmente, daremos uma explicação de co¬ 
mo digitar certos comandos de seu TK 90X utilizados nes¬ 
te programa. 

TABELAM _ 

INK,PAPER, Pressione simultaneamente CAPS SHIFT e 

BRIGHT,OVER SYMBOL SHIFT e, em seguida, novamente 
SYMBOL SHIFT juntamente com a tecla a ser 
usada. 

PEEK,DATA, Pressione simultaneamente CAPS SHIFT e 
CHR$,INKEY$ SYMBOL SHIFT e após a tecla a ser usada. 

STOP,AT,THEN, Pressione SYMBOL SHIFT e depois a tecla a 
TO ser usada. 


22 MICROHOBBY 


















































































































































DIIj 


,5TI2A 


2 INK 8: PAPER 7: BRIGHT 1: C 
LS : BORDER 1 

3 POKE 23609,40 

5 IF PEEK USR “ 3 “ =2 THEN GOTO 
30 

10 FOR n=1 TO 18: REfiD 3$: FOR 
m =0 TO 7 

15 REfiD 3: POKE USR 3 $+m ,3 

20 NEXT Fis : NEXT n 

100 LET »$ = *'U 2í 2p 3:' 3p 4í 34 4p 5í 4 
d 5p 5í 4f bd 6 p 7í bf bd 7d " 

101 LET n$ = "1131315315317531753 

104 DIM £4(19,2): DIH £(19) 

105 FOR n=l TO 19: LET £4 (n) =m 4 
( (n*2) -1 TO n-s-25 : LET £(n)=UfiL n 
$ (n) *2 

110 NEXT n 

114 fRINT fiT 0,4; “Ei-1 f u tU r3i t L 
£troní c3s" 

115 input “Entre com o Numero fi 
tomico : " ; z 

120 IF Z < 1 OR 2 >118 OR ZOlNT Z 
THEN GOTO 105 

123 LET X =0: PRINT fiT S.0;"Nume 
r o h t o m i c o = ”; z : PR INT 
125 FOR n=l TO 19 
13 0 P RINT £ 4 (n ) C HR4 3 
135 FOh m=1 TO £ ín) 

140 LET X =X + 1 : IF X=Z THEN GOTO 
160 

143 NEXT m 

14b OU ER 1: PRINT CHR4 (143+£(n 
) ) ; " " ; 

150 NEXT n 
155 GOTO 165 

160 OU ER 1 : PRINT CHR$ (143+m) 
16b _ PR INT fiT 21,0 " D£ S £ j 3 CO n t i 
n u a r ? ( ■' s •’ o y •* n ' \ ,s 
170 LET i4 = INKEY4: IF i$ = “" THE 
N GOTO 170 

172 IF i $ = '*£" THEN CLS : GOTO 1 
14 

173 IF i4 <>"n” THEN GOTO 170 
ISO STOP 


9000 DfiTfi 
92,0 

:: C : 

, 0,0,95., 128 , 

64 ., 32 ., 1 

9001 DfiTfi 

2,128,123 

P !! 

., 8 .: 0 ., 122 ., 1 b 0 

,160,19 

9002 DfiTfi 

” H 

., 0 ., 42 ., 32 ., 2 b ., 

160,160 

, 96,0 



9003 DfiTfi 

:: f :: 

,0,0,96,123, 

122,12» 


,128,0 
9004 D PT fi 


, 2 , 2 ., c: j a. ,i c. 


, 0 .,0,0 , “ b 


",7,1,3,4,7,0,0,0,“C",7,1,3,1 ,( 

0,0,0,“d“,1,3,5,7,1,0,0,0,“e ,7, 
4,6,1,6 , O , 0,0 


9005 DfiTfi “f",7 


, 0,0,0 , “ 9 


",7,1,2,4,4,0,0,0,“h“,7,5,7,b ,r , 
0,0,0 , " i “ , / , b ,7,1,7,0,0,0 , " j ■' , Lb 
,21,21,21,23,0,0,0 

9006 DfiTfi " R “ , 18,18,18,13,18,0>, 0 
,0,“L" ,23,17,19,20,23,0,0,0,“m", 
23,17,19,17,23,0,0,0,"n”,17,19,2 
1,23,17,0,0,0 



ASSINE O 

JV 



O Jornal do VIDEOTEXTO é dirigido a profissionais 
liberais, engenheiros, empresários e estudantes. Fique 
sabendo das novidades, tendências e experiências do vi¬ 
deotexto, recebendo em casa 12 edições do único veí¬ 
culo com informações atualizadas, isentas e analíticas 
sobre o setor. 

Envie seu pedido à 

Dialógica Comunicação e Sistemas Ltda. 

Rua Fradique Coutinho, 50 
CEP 05416-São Paulo - SP. 

Fones: 644)331 e 64-7131 


Nome: .,. 

Profissão:. 

Endereço: .CEP 

Cidade:. Estado:. Fone: 


Desejo receber 12 edições do Jornal do 
VIDEOTEXTO. Estou anexando cheque nominal à 

Dialógica Comunicação e Sistemas Ltda. no valor 
de Cr$ 27.000. 

Quem assina tem prioridade da informação. 

Seja assinante do |V. 



PARA EQUIPAMENTOS COM LÓGICA SINCLAIR 


1. VALKERIE 

Pilote a nave 
Valkirie e parta 
em busca de dez 
castelos perdidos. 
(Exclusividade 
Ciberne, por 
Divino C.R. 
Leitão). 

E mais: 
GUERRILHA 
CÓSMICA 
eZOR. 


4. DEFENSOR 3D 

Livre nosso 
planeta de uma 
invasão 
alienígena. 

Fantásticas 
simulações 
tridimensionais. 

E mais: Q’BERT 
(Exclusividade 
Ciberne, 
por Divino C.R. Leitão) e 
ASSALTO. 





2. MERCADOR DOS 
SETE 
MARES 

No século XIX 
você percorre o 
mundo a bordo 
de seu navio, em 
busca de bons 
negócios. 

E mais: 

CORRIDA MALUCA e P1NBALL 
(Exclusividade Ciberne, por Divino 
C.R. Leitão). 

5. ROT I - PLUS 

• S.O.G. 

Sistema 

operacional, com 
linguagem 
gráfica. Infinitas 
opçOes de uso. 

Total mente em 
código de 
máquina 

(Exclusividade Ciberne, porj. Magel). 

• MERGE 

Possibilita a j unção de vários 
Droqramas, uns aos outros. 




3. SUBESPAÇO 

Implacável 
caçada espacial 
Totalmente 
gráfico. 

E mais: 

CAVERNAS DE 
MARTE 
(Exclusividade 
Ciberne, por 
Divino 

C.R. Le.táo) e COMBOIO 
ESPACIAL. 


6. APLICI 

• COMP CALC 

Rápido, eficiente e totalmente em 
código de máquina. A melhor versáo 
do já famoso Visi-Calc. 

• COMP ARO 

Programa gerador de arquivos. 
Totalmente em código de máquina 
Modele fichas e as acesse pelo 
campo que quiser. 

• COMP TEXTO 

De fácil manipulação, totalmente em 
código de máquina. 


PARA EQUIPAMENTOS COM LÓGICA TRS 80 


1. SIMULADOR DE VÔO 

Totalmente 
gráfico e 
acompanhado 
de livro de 
instruções, com 
diagramas, 
tabelas etc. 

E mais: 

PINTOR 
MALUCO e 
O DESAFIO DA 
GALINHA 
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Um Arquivo Bibliográfico no 
TK-2000 

Critérios de organização e gravação em fita 


Quem trabalha na elaboração de re¬ 
latórios técnicos ou científicos, basean¬ 
do-se em bibliografias para elaborar in¬ 
formação, tem que lidar com livros, re¬ 
vistas e cópias de artigos (organizados 
em pastas, por exemplo) que, não raro, 
viram um caos informativo no momento 
de suas utilizações. Dispondo de um 
TK-2000 e trabalhando só com gravador 
(e, opcionalmente, uma impressora), 
decidi finalmente assumir a tarefa de 
construir um arquivo do meu material bi¬ 
bliográfico. 0 objetivo final do tal arqui¬ 
vo é poder "entrar-' com determinadas 
mensagens e obter do micro uma lista¬ 
gem de títulos abrangendo o tópico que 
me interessar. Achei que os resultados 
iniciais poderiam ser de utilidade geral 
para os usuários deste e de outros mi¬ 
cros (da mesma forma, todo comentário 
e observação serão benvindos). Neste 
artigo, comento o critério de organiza¬ 
ção/gravação que me parece mais sim¬ 
ples. Posteriormente, apresentarei um 
programa de leitura/impressão (opcio¬ 
nal) de referências, e finalmente um cri¬ 
tério de leitura/ordenamento/impressão 
de dados de arquivo. 

Um software do tipo Multicalc (Mi- 
crohobby n°. 16, página 46) poderia re¬ 
solver parte do problema, mas trabalha 
com disquete. Por outro lado, um arqui¬ 
vo bibliográfico requer critérios particu¬ 
lares de organização e, portanto, um 
programa específico, que apresento 
neste artigo. 

1. O critério de organização de um 
arquivo bibliográfico 

De início, podem ser previstos dois 
problemas: 

1) referências bibliográficas são da¬ 
dos que apresentam uma diversidade 
bastante grande de origens e caracterís¬ 
ticas de formato, que devem ser padro¬ 
nizadas para tornarem-se "processá¬ 
veis" via TK-2000, especialmente consi¬ 
derando que este não admite gravação 
em fita de dados alfanuméricos 
("strings"), mas de vetores numéricos. 

2) um arquivo bibliográfico deve 
ser dimensionado para um número gran¬ 
de e sempre crescente de referências, 
sem estourar a memória do TK. Ela é ex¬ 
tensa, mas limitada. Se o arquivo ocu¬ 


par mais de 6 K, será necessário traba¬ 
lhar com a segunda página de vídeo. 
Não considero aqui a possibilidade de se 
utilizar o Assemblye ampliar potenciali¬ 
dade de memória (V. Microhobby n°. 18, 
p. 57). 

Obviamente, a estrutura do arquivo 
depende da utilidade nele procurada e 
do critério (subjetivo) do próprio utiliza¬ 
dor. No caso que descrevo, trata-se de 


Juan Carlos Ceballos 


arquivar uma massa de dados: a) livros 
(próprios ou não); b) cópias ou separa¬ 
tas de artigos em revistas, coletâneas, 
relatórios,anais,etc. Digamos que os 
primeiros estão alocados em biblioteca, 
prateleiras, etc., e os segundos em pas¬ 
tas ou numa outra forma de agrupa¬ 
mento. Para ilustrar os critérios escolhi¬ 
dos, é interessante considerar os exem¬ 
plos incluídos na tabela 1. 


Diagrama — Estrutura de um "STRING" — Referência bibliográfica. Os nú¬ 
meros em cima são com relação à "string"-referência. Os números de baixo 
são posições no vetor-arquivo S% (7500). 


ZT ZR 

1 2 3 4 5 6 7 0 9 10 II ... | j 

12 3.. 





Xt. 

Y V. 

P% 

ZT 

ZR 

Cl 

C2 

C 3 

A$ 

T$ 







f » t f ♦ 

Z k Z k + 10 Z k + ZT — 1 Z k + ZR - 1 Z k . , 


Exemplo A Tipo de publicação: livro 
Autor Alexander, D.C. 

Título Programação em Assembler e linguagem de máquina 
Referência Editora Campus, Ltda., RJ 

Ano 1984 Local: minha biblioteca 

Exemplo B Tipo de publicação: artigo de uma coletânea 
Autor Bárbaro, R.S. 

Título Cibernética e civilização industrial 

Referência In: A questão da informática no Brasil (Ed.: Benakouche, R.),, 
pp. 154-167 — Brasiliense/CNPq 
Ano 1985 Local: determinada biblioteca 

Exemplo C Tipo: artigo de uma revista (Ciência Hoje) 

Autor Pádua,M.T.J. 

Título Pantanal — Terra de todos, terra de ninguém 
Referência V. 2, n°. 8:44-49 (ou 2(8):44-49) 

Ano 1983 Local: cópia alocada numa pasta 
Exemplo D Tipo: artigo de uma revista (Microhobby) 

Autor Moreira, C.J. 8- Szente, L.C.N. &Tucci, W.J. 

Título Por dentro do Apple — Banco de dados 

Referência V. II, n° 18:55-56 (ou 2(18):55-56) 

Ano 1985 Local: uma pasta com as revistas Microhobby 


Tabela 1. Alguns exemplos de referências bibliográficas. 
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Além do arquivo estar em perma¬ 
nente crescimento, em variadas dire¬ 
ções temáticas, também pode ser va¬ 
riado o interesse ao acessá-lo. Por 
exemplo, pode-se desejar classificar por 
ordem alfabética de autor, tópico ou pu¬ 
blicação, por ordem cronológica, etc. A 
conclusão imediata é que não vale a pe¬ 
na um ordenamento inicial de referên¬ 
cias segundo critério pré fixado. Even¬ 
tualmente, é recomendável registrar as 
publicações pela ordem de chegada, o 
que toda e qualquer biblioteca de uma 
instituição faz com os livros novos que 
recebe, num registro geral. No caso que 
nos ocupa, é este registro que está gra¬ 
vado em fita, podendo-se selecionar de¬ 
le referências através de códigos ade¬ 
quados ("chaves secundárias") de bus¬ 
ca. Com este critério, um conjunto mí¬ 
nimo de elementos que caracterizam ra¬ 
zoavelmente os exemplos da tabela 1, 
inclui (ver tabela 2): 

a) códigos numéricos: 

— N% = número de inclusão no re¬ 
gistro geral 

— X% = local onde encontrar a refe¬ 
rência 

— Y% = ano de publicação (são sufi¬ 
cientes dois dígitos: 1983 —> 83) 

— P% = tipo de publicação (revista, 
anais, livros, etc.) 

— C1%, C2%, C3% = códigos de pa¬ 
lavras-chaves que definem temas. 

b) strings: 

— A$ = autor(es) 

— T$ = título 

— R$ = referência (volume e página, 
editora, etc.). 

Algumas observações: 

Note que, em geral, X%, P%, C1% 

. . . <255, ocupa não mais de dois 
bytes de memória. 

— P% admite codificar títulos de revis¬ 
tas, podendo-se dispor de uma simples 
listagem à parte para conferir o código 
respectivo (afinal, o TK-2000 não tem 
memória infinita). 

— Uma ou mais palavras-chaves po¬ 
dem ficar "em aberto", para posterior 
definição, fixando-se de início C1%, 
C2% ou C3% = 0. Prevendo-se que ca¬ 
da C% < 255, as combinações possí¬ 
veis fornecem um conjunto enorme de 
combinações de códigos, ocupando só 
3 bytes por referência. 


— Uma publicação pode ter mais de um 
autor (Ver Exemplo D). Prevendo uma 
futura pesquisa por autor, observa-se 
que no exemplo os nomes dos autores 
estão separados por "Et", símbolo pou¬ 
co usual que permite localizar, dentro do 
string A$, o nome do autor mais pró¬ 
ximo. 

— Ainda que a referência R$ possa ser 
quase que puramente numérica (Exem¬ 
plos Ce D), é conveniente considerá-la 
um string. Isto, por duas razões: a) a re¬ 
ferência pode ser o nome de uma edito¬ 
ra (Exemplo A); b) o "quase" numérico 
não é critério suficiente para saber, a 
priori, o número total de algarismos que 
teria a referência (comparem os Exem¬ 
plos Ce D). 

O critério para montar o arquivo 

O TK-2000 não grava vetores alfa¬ 
numéricos. Se limitado a gravar em fita 
cassete, ele não dispõe de algumas van¬ 
tagens do TKDOS (Ver Microhobby n°. 
16, p. 11; n°. 17, p. 40; n? 18, p. 55), po¬ 
rém, aceita qualquer string S$ com 
LEN(S$) < 255, através de um INPUT, 
se definido entre aspas (só não pode ter 
aspas entre aspas). Desta forma, A$, T$ 
e R$ podem entrar sem problemas e se¬ 
rem transformados numa sequência de 
números através dos códigos ASCII de 
seus caracteres. 

Por razões de poupança de memó¬ 
ria, o arquivo deve ser seqüêncial, isto 
é, o conjunto de referência estarem "ali¬ 
nhado" ao longo de um único vetor. 
Assim, um arquivo com NR referências 
é simplesmente um vetor numérico (ma¬ 
triz unidimensional) com ZF valores nu¬ 
méricos; cada referência é um "frag¬ 
mento" deste vetor, de forma que o dia¬ 
grama anexo ilustra a estrutura da k-ési- 
ma referência. 

O início da k-ésima referência está 
na posição Z k do vetor-arquivo. Nesta 
posição, inclui-se sempre o número 64 
= ASC ("@"), para fins eventuais de 
uma pesquisa posterior ao longo do ve¬ 
tor (encontrar este número implicaria, 
em princípio, em ter o início de uma re¬ 
ferência . O símbolo @ é bem pouco pro¬ 
vável de aparecer em A$, T$ ou R$). 

ZT e ZR indicam a posição, dentro 
da k-ésima referência, do início de T$ fe 


R$, e estão situadas nas posições Z k + 
5 e Z k + 6 do arquivo. Obviamente, A$ 
começa na posição Z k + 10. No diagra¬ 
ma indica-se como obter as posições ini¬ 
ciais de A$, T$ e R$ dentro do vetor-ar¬ 
quivo. 

Digamos que S% seja o vetor-ar¬ 
quivo de referências. Obviamente, seu 
comprimento deve ser definido através 
de um DIM S% (...) inicial. Foi esco¬ 
lhido 7500, o que implica em ocupar pra¬ 
ticamente 15,0 K de memória; empirica¬ 
mente, encontrei que o comprimento 
médio de uma referência é da ordem de 
120 números (entre códigos e ASC de 
caracteres), de forma que um arquivo 
admite em torno de 60-62 referências. 
Isto significa que um arquivo total com 
muito mais referências pode ser dividi¬ 
do em sucessivas gravações de arquivos 
parciais em fita. Pode-se perguntar por 
que 7500 para a dimensão de S% (o 
TK-2000 admitiria bem mais do que is¬ 
so); de fato, pode ser maior. Contudo, 
há pelo menos duas razões para a esco¬ 
lha: 1) se houver um acidente qualquer 
com a fita, num trecho mínimo dela, se¬ 
ria bem triste perder um conjunto gran¬ 
de de referências (o vetor S% gravado 
em fita é lido de uma vez só, completo, 
através de um RECALL); 2) pode-se pre¬ 
ver que um programa de leitura e classi¬ 
ficação de referências precise definir um 
outro vetor U% bastante longo para 
transferir nele as referências já ordena¬ 
das, segundo algum dado critério (or¬ 
dem alfabética de autor, etc.). Este as¬ 
pecto será motivo de um artigo poste¬ 
rior. 


O programa de montagem/gravação 
de arquivo 

Acompanho a listagem do progra¬ 
ma que recebe e arquiva referências 
(umas 60). É conveniente comentar al¬ 
gumas linhas. 

Linha 17 — No DIM é incluído um se¬ 
gundo vetor, L% (100). Ele contém as 
posições Z k iniciais de todas as referên¬ 
cias do arquivo, isto é, L% (K) = Z k . 
Linha 88 — Define L% (0) = N, núme¬ 
ro total de referências no arquivo; S% 
(0) = ZF, comprimento total efetivo do 
vetor S% (isto é, posição do último ca¬ 
ractere da última referência). 

Para trabalhar com o arquivo, carre¬ 
gue (LOADT) e MP < RETURN>, des¬ 
de que ocupe mais de 6 K. Na tela, de¬ 
pois de um "loop" de mais ou menos 
meio minuto (zerando S% e L%), apre¬ 
senta FRE (0). A seguir, serão carrega¬ 
das as referência; o TK indicará: 

Linha 54 — Posição inicial S% (K) = 
Z k , K (número da referência neste ar¬ 
quivo). 

Linha 56 - Pede INPUT de N% (do ar¬ 
quivo geral!), X%, Y%. 


Exemplo D Tipo: P% =25 N? registro geral: 164 = N% 

A$ = "Moreira, J.C. 8-Szente, L.C.N. 8-Tucci, W.J." 

T$ = "Por dentro do Apple — Banco de dados" 

R$ = "2( 18): 55-56" 

Ano 85 = Y% Local: X% = 5 
Palavras-chaves: C1% = 22 (microcomputadores) 
C2% = 15 (bancos de dados) 

C3% = 00 (em aberto, para definir) 


Tabela 2. Um exemplo de codificação para as referências da Tabela 1. 
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Linha 58 — Pede A$ (entrar entre as¬ 
pas). 

Linha 60 — Pede INPUT T$, entre as¬ 
pas.. 

Linha 62 — Pede INPUT P%, R$ (o pri¬ 
meiro é um número, vírgula, o segundo 
entre aspas). 

Terminada uma referência, esta é 
processada e guardada em memória. 
Linha 86 — Apresenta escolha tripla 
através de GET (tecla): a) se você dese¬ 
ja corrigir a referência antes de entrar 
definitivamente em memória, tecle C (é 
muito comum cometer erros de digita¬ 


ção. A referência deverá ser digitada 
completamente, de novo); b) se você 
considera terminado o vetor S% e de¬ 
seja carregar já em fita, pressione F; c) 
para continuar acumulando referências 
na memória (ainda não deseja gravar), 
qualquer tecla que não C ou F. 

Linha 89 — Contém uma proteção para 
erros de STORE (já me aconteceu colo¬ 
car o gravador em START sem pressio¬ 
nar RECORD): retorna a oferecer a op¬ 
ção F (STORE), C (correção) ou conti¬ 
nuar (com outra tecla). 

Linha 77 — Prevê o estouro do vetor 


S%, excedido com a última referência. 
Leva à opção de STORE, ou de "corri¬ 
gir" a referência, abreviando-a. 

Observação: o programa só não 
aceitará INPUT de A$, T$ ou R$ com 
LEN >255de algum deles. 

Denominei, o programa de AR Kl VI. 
Num próximo artigo, ARKIV2 permitirá 
efetuar listagem de um arquivo em fita, 
com a opção de vídeo ou de impresso¬ 
ra. Todavia, conhecendo a estrutura de 
AR KlVI, o próprio leitor poderá ir ten¬ 
tando construir seu ARKIV2 particular. 


1 REH ARKIVi - ARÔUIVO BIBLIOGR 
AFICO 

(APROX. 60 REFS.) - 5/5/85 

2 REH AUTOR: JUAN C. CEBALLOS = 
R. L 

UIS GOES Í409 = 04043 SAO PAULO 

3 REH . 

m 9 m m 

4 REM S2=VET0R DE REFERENCIAS 

5 REM LZ=VET0R DE P0SIC0ES INIC 
I AIS 

6 REH CADA REF.TEM 10 NROS.INIC 
IAIS: 

7 REM 1=ASC3(INICI0) 2=NZ(REG.G 
ER AL) 

8 REM 3=XZ(LOCAL) 4=YZ(AN0) 5=P 
Z(C0D 

•PUBL.) 

9 REM 6=P0S.TITULO 7=P0S.REFER. 

Í0 REM 8,9,10=C0DS.PALAVRAS CHA 
VE(=0 

NESTA VERSÃO) 

íí REM >10=ASCII DE AN AUTOR >+T 
i(TIT 

ULO)+Rl(REFER.=V0L:P AG, OU EDITOR 


A) 

12 REM 


15 DIM SZ(7500 í,LZ(100) 

16 FOR J = 0 T0 7500:SZ(J) = 0: 
NEXT 

17 FOR J = 0 T0 ÍOOíLZ = 0: NEXT 

20 HOME 

21 X = FRE (0): PRINT X 
48 Z = 0:N = 0 

50 N = N + 1:LZ(N) = Z + 1 
54 PRINT : PRINT "Z0=";Z + 1; SP 
C< 2) 

;"N=";N 

56 INPUT "N* 0RDEM,L0CAL,AN0:";N 

z,xz, 

yz 

58 INPUT "AUTOR (ES):"; Ai 

59 X = LEN (Ai):SZ(Z + 6) = 11 + 
X 

60 INPUT "TITUL0:";TÍ 

61 X = X + LEN <TI):SZ(Z + 7) = 
11 + 

X 

62 INPUT "C0D.PUBL.REF.:";PZ,RI 

63 X = X + LEN (Ri) 

70 SZ(Z + 1) = ASC ("3"):SZ(Z + 
2 ) = 

NZ:SZ(Z + 3) = XZ 


72 SZÍZ + 4) = YZ!SZ(Z + 5) = PZ 
74 FOR J = 8 T0 10:SZ(Z + J) = 0 
: NEXT 

77 ZF = Z + 10 + X: IF ZF > 7500 
THEN 

PRINT "EXCEDE VETOR": GOTO 86 

79 IF X > 254 THEN 60SUB 93: G0 
T0 86 

80 Ai = Ai + Ti + Rf:ZF = Z + 10 
+ X 

81 10 = Z:Y = 10: G0SUB 97 

86 PRINT "GET Ai:-)F=ST0RE;-)C=C 
0RRIG 

E": GET Ai 

87 IF N0T (Ai = "F") G0T0 90 

88 LZ(0) = N:SZ<0) = ZF: STORE LZ 
: STORE'SZ 

89 PRINT : PRINT "STORE TERMINAD 
0": G0T0 86 

90 IF Ai = "C" G0T0 54 

91 Z = ZF: GOTO 50 

93 REM STRING EXTRA-LONGO 

94 10 = Z:Y = 10: GÕSUB 98 

95 Ai = Ti: G0SUB 98 

96 Ai = Ri: G0SUB 98:ZF = 10 + Y: 
RETURN 

97 REM SUBR.AUX. 

98 10 = 10 + Y:Y = LEN (Aí): FOR 
J = 

1 T0 Y:l = 10 + J:SZ(I) = ASC ( 
MIDI (Ai,J,1,1)): NEXT 

99 RETURN 
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Conversões de Sistemas 


Cesar de Afonseca e Silva Neto 
Wilson José Tucci 


Este artigo visa não só a utilização prática do programa, 
mas também a abordagem dos aspectos teóricos do mesmo. 
Para tanto, vamos esclarecer ajguns conceitos fundamentais. 

SISTEMA DE NUMERAÇÃO 

A característica principal de um sistema de numeração é a 
chamada base. Estamos acostumados a trabalhar com a base 
decimal, ou seja, a base que utiliza dez símbolos (algarismos) 
para formar um número qualquer. É fácil percebermos que to¬ 
do número escrito nesta base será uma combinação dos ele¬ 
mentos da mesma; logo, com um número fixo de casas (C), 
podemos determinar o número (L) de combinação que pode 
ser formado pela fórmula: 

L = Base c 

Por exemplo: 

c = 3 = 10 3 (de Oa 999) 

Outro conceito fundamental quando, tratamos de siste¬ 
mas de numeração é o chamado PRINCÍPIO DA POSIÇÃO. 
Ele diz o seguinte: 

'Todo algarismo escrito imediatamente à esquerda de ou¬ 
tro, representa unidades de ordem de grandeza imediatamente 
superior a desse outro." 

Em outras palavras, isto significa que um algarismo escri¬ 
to em uma posição imediatamente à esquerda do algarismo 
em questão valerá tantas vezes mais quando for o valor da 
base do sistema de numeração na qual está sendo escrito. 

Decorre deste princípio, que cada algarismo que compõe 
o número terá dois valores: valor absoluto e valor relativo. O 
valor absoluto é o valor que o algarismo tem por si próprio, in¬ 
dependente da posição que ocupa no número. Já o valor rela¬ 
tivo leva em conta a posição. Vamos analisar um exemplo na 
base decimal: 


Número Valor 

Absoluto 

Ordem de 
Grandeza 

Valor relativo 
na Base 

(4 

879) ,o 

I 1 - 

X Base = 
X Base = 
X Base = 
X Base = 

9 

70 

800 + 
4.000 

(4879) ,o 

► 9 

__ A 



O número representado é obtido pela soma dos valores 
relativos do numeral. 

Isto foi feito para a base decimal. E quando tratamos de 
números na base binária ou hexadecimal? Bem, o raciocínio é 
o mesmo, o que muda é o valor da base e os elementos que a 
constituem. Acompanhe os exemplos: 


BASE 2 — Elementos: (0, 1) 


Número Valor 

Absoluto 

Ordem de 
Grandeza 

Valor Relativo 
na Base 

(1101), 




I 1 -* 1 

X2° 

1 


1 -• 0 

X 2' 

0 


-* 1 

X 2 2 

4 + 


-* 1 

X 2 3 

8 




(13) ,o 


BASE 16 - Elementos: (0, 1, 2, 3, 4, 5, 6 , 7, 8 , 9, A, B, C, D, 
E, F) 


Número Valor 

Absoluto 

Ordem de 
Grandeza 

Valor Relativo 
na Base 

<4 

ID3F) 16 

1 I 1 -* F 

1-- 3 

1--- D 

-» 4 

X 16° 

X16 1 

X16 2 

X16 3 

15 

48 

3328 + 
16384 

(19775) ,o 


O programa de conversão utiliza este raciocínio na sub- 
rotina (250-400). Vamos analisar um exemplo simples para 
compreendermos como o programa funciona. Vamos conver¬ 
ter (3DC) para a base 10. 


LEN (VL$) 

1 VL$ A 

N 

COV 

3 

3 3DC 51 

3 

3*16 (3-1) = 768 

3 

3 3DC 68 

13 

768+13*16 (3-2) = 976 

\ 3 V 

3 3DC 67 

12 

976+12*16 (3-3) = 988 

4>3-> 

RETURN-O 

(3DC) 

16 = (988) ,o 


Obs.: Esta análise foi feita através de um "Teste em se¬ 
co". Desta maneira podemos verificar se o programa esta cor¬ 
reto ou não, acompanhando a situação das variáveis que este 
utiliza durante a sua execução. 

Para fazermos o contrário, ou seja, transformarmos um 
número na base decimal para a base binária ou hexadecimal, 
precisamos de um método que nos proporcione a divisão do 
número em parcelas tais que, a cada uma delas corresponda 
uma potência da base desejada. 

Algoritmo 


1. A$4í-"0, 1, 2, 3, 4, 5, 6 , 7, 8 , 9, 0, A, B, C, D, E, F" 

2. RESTOd—VL — BASE*INT (VL/BASE) 

3. VL<J- INT (VL/BASE) 

4. C0V$4-MID$ (A$, RESTO + 1,1) + COV$ 

5. SE VL = O ENTÃO FIM 

6 . Voltar ao passo 2 


Este método é utilizado na sub-rotina (410-550). 

Bem, agora só faltam as operações de transformação de 
binário para hexadecimal e vice-versa. 

Isto fica fácil se percebermos que cada dígito de um nú¬ 
mero hexadecimal pode ser decomposto em 4 outros binários 
e vice-versa . Exemplo: 


( 1100001110101111) 2 

* 

1100001110101111 

$ 

C 3 A F 
(C3AF ) 16 


No entanto, um outro método mais trabalhoso seria o de 
decompor o processo em duas etapas: 


Hexadecimal^—]—^ decimal 4 — 2—p. binário 
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EXPLORANDO O TK-2000 


I I I I I I I I I I I I I I I r t r ri I li I I I M II II I II 

! | | | | I I I | | | I í J J J I I J I I I 1 [ H+H+T I 1 í I I I F M 


.l i. |..| iJ |44 


H-H-H-+4 


TT-tfTTTTTT 


Como 1 e 2 são rotinas já implementadas no programa, 
este método que parecia ser mais trabalhoso, acaba sendo 
muito simples. 

Para finalizar, gostaríamos de esclarecer os chamados 
VALORES EQUIVALENTES. Você já deve ter lido em algum 
manual que para entrar no modo monitor do seu computador 
deve-se efetuar um CALL-159 (— 151 PARA 0 APPLE). Ago¬ 
ra experimente um CALL 65337 (65385 para o APPLE). Obser¬ 
vou? — 159e 65377são ambos valores equivalentes de $FF61. 
Assim, para obtermos os valores equivalentes, positivos ou 
negativos, de um certo número basta aplicarmos as seguintes 
fórmulas: 

vpositivo = 65536 — abs (vnegativo) 

vnegativo = vpositivo — 65536 

Isto também é feito pelo programa. Bom proveito! 


TABELA 1 


VARIÁVEL 

FUNÇÃO 

E$( ) 

matriz das escolhas 

E 

escolha 

1 

contador 

VL$ 

string a converter 

COV$ 

string convertida 

C2$ 

string equivalente 

N$ 

i-ésimo algarismo de VL$ 

A 

código ASCII de N$ 

N 

valor decimal de N$ 

COV 

valor numérico de COV$ 

VL 

valor numérico de VL$ 

A$ 

conjunto de símbolos das bases 

R 

resto da divisão 


100 REM CONVERSÃO DE SI 

STEHAS 

110 REH 

120 HOME 

130 FOR I = 1 TO 7: READ 
ES(I): NEXT 

140 REM MENU PRINCIPAL 

150 HTAB 5: INVERSE : PR 
INT " C0NVE 
RS A0 " 

160 FOR I = 1 T0 7: VTAB 
3 + 1*2: HTAB 5: INVERS 
E : PRINT I-: NORMAL : PRI 
NT SPC( 3);Ef(I): NEXT 
170 VTAB 20: HTAB 5: INP 
UT "ESCOLHA - 
-> ";Ei:E = VAL (El): IF 
E < 1 0R E > 7 THEN PRIh 
T CHR! (7): G0T0 170 
180 IF E = 7 THEN HOME 
: END 

190 HOME : VTAB 3: INVER 
SE : PRINT " 

'•EKE);" ": NORMAL 
200 VTAB 6: PRINT "VALOR 
A SER C0NVER 

TIDO": PRINT : PRINT : IN 
PUT 

-> "-VL1 

210 0N E G0SUB 250,250,4 
10,410,560,61 
0 

220 PRINT : PRINT : PRIN 
T : PRINT "RE 
SULTAD0 ==> "jCOVI; TAB( 
30);C2i 


E$( ) 

m; 

3tri7 das escolhas 

230 VTAB 22: PRINT "APER 


450 BASE = 16 

TE 8UAL8UER T 


460 IF E = 3 THEN BASE = 

ECLA" ; : GET XI 


2 

240 RUN 


470 VL = VAL (VLI) 

250 REM 


480 IF VL ( 0 THEN VL = 

65535 - ABS 
(VL) + 1 

260 REM BIN E HEX --> D 


490 R = VL - BASE * INT 

EC 


(VL / BASE) 

270 REM 


500 VL = INT (VL / BASE) 

280 BASE = 16 

290 IF E = 1 THEN BASE = 


510 C0V1 = MIDI (A1,R + 

2 


1,1) + C0VI 

300 FOR I = 1 T0 LEN (V 


520 IF VL > 0 THEN 490 

Ll) 


530 IF E = 3 THEN RETUR 

310 Nl = MIDI <VLI,1,1)s 


N 

A = ASC (Nl) 


540 C0V1 = "I" + C0V1 

320 N = A - 55 


550 RETURN 

560 REM BINÁRIO --> HEX 

330 IF A < 59 THEN N = A 


A 

- 48 


570 E = i: G0SUB 250 

340 COV = COV + N * BASE 


580 VLI = C0VI:C0V1 = "" 

A ( LEN (VLI) 


590 G0SUB 410 

- I) 


600 RETURN 

350 NEXT 


610 REM HEXADECIMAL --> 

360 CÔV1 = STRI (COV) 


BINÁRIO 

370 IF E = 1 THEN RETUR 


620 G0SUB 250 

N 


630 VLI = C0Vi:C0VI = 

380 C2 = COV - 65536 


C2I = "" 

390 C2I = STRI (C2) 


640 E = 3: G0SUB 410 

650 RETURN 

660 DATA BIN ===> DEC 

400 RETURN 


670 DATA HEXA ==> DEC 

410 REM 


680 DATA DEC ===> BIN 

420 REM DEC E BIN --> H 


690 DATA DEC ===> HEXA 

EXA 


700 DATA BIN ===> HEXA 

430 REM 


710 DATA HEXA ==> BIN 

440 Al = "0123456789ABCDE 


720 DATA SAIR D0 PR0GRA 

F" 


HA ■ 
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FUNÇÕES TRIGONOMÉTRICAS 


Este programa calcula e desenha funções (1-9). Todas as 
funções devem ser com coeficiente em X. Todas serão plota- 
das sobre as mesmas coordenadas (X-Y). 

Todas as funções devem ser colocadas a partir da linha 
180 até 189. 

Exemplo: 

180 Y (1) = COS(X) 

180 Y (2) = SIN(X) 

Veja a figura em anexo. 


Cristiano A.C. Nasser 
Wilson José Tucci 

Ex.: Se sua tela tiver 40 colunas, troque a linha 140 para: 
140IFY2C = 40THEN 170 

Todas as funções serão desenhadas com os seus respec¬ 
tivos números de colocação. Para melhor observar os gráfi¬ 
cos, trace com caneta linhas contínuas e coloridas sobre as 
funções. 

As funções não cortarão necessariamente o "zero" dos 
eixos. Você deverá ajustar os pontos para os quais a função 
cortará esses eixos. 





1 I + x x x 4 V 



P i 


+ 


2 I 


+ 






*£ i ' 


+ 


: ! 


+ 


w 1 


+ 


. 1 


4> 


r * 2 


4. 


■ *■ 


F 


! 2 


4- 


; 




1 ' 


- 


: *" 2 


- 


1 2 


J. 


< 


* 


! 2 


+ 


i ;■ 




t 


X 




X 


•- 


t 


2 i 


■?• 


2 1 


X 


2 i 


t 


2 i 


F 


2 1 




_2 1 




í 


X 




X 


17 






+ 


\ 2 


4 


i 2 
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Alguns cuidados devem ser tomados: 

1. Verificar se não vai haver divisão por zero (para isso 
observe o intervalo em que o gráfico será apresentado). 

2. Para melhor visualização procure plotar até 3 funções 
pois, caso contrário, o gráfico começará a ficar embaralhado. 

3. Observe bem os pontos de máximo e mínimo a serem 
pedidos. 

4. Para melhor visualização tente imaginar a tela com 
uma rotação de 90 graus, pois o gráfico sairá "Deitado" (Ver¬ 
tical). 

5. Para os que não possuem impressora, retirem a linha 
189. 

6 . A linha 140 verifica se o gráfico sairá dos parâmetros 
(no caso "70"). Este parâmetro é o tamanho da tela. Ajuste de 
acordo com o tamanho de sua tela. 


ÍO HOME 

188 Y(9) = 0 

20 PRINT "GRAFICO DE FUN 

189 PRtti 

COES" 

190 FOR I = 1 T0 N 

30 DIH Y(9),AI(il) 

200 Y(I) = INT ((Yd) - 

40 FOR I = i TO íí 

Yi) / Y3 + .5 

50 READ Aid) 

) 

70 NEXT I 

210 NEXT I 

80 INPUT "OUANTAS FUNCOE 

220 FOR I = 0 TO Y2 

S SERÃO PL0TA 

230 S = 0 

0AS";N 

240 FOR J = 1 T0 N 

90 INPUT "ENTRE PONTO FI 

250 IF Y(J) ( ) I THEN 

NAL ES8U/,DIR 

280 

/,INCRE/";XÍ,X2 r X3 

260 S = S + 1 

Í00 INPUT "ENTRE PONTO M 

270 T = J 

INIH0,HAXIM0, 

280 NEXT J 

INCREMENTO";Yi,Y2,Y3 

290 IF S ) 0 THEN 320 

líO Y2 = (Y2 - Yi) / Y3 

300 PRINT At( SGN (I) + 

120 IF Y2 < = 70 THEN 1 

10); 

50 

310 G0T0 360 

130 PRINT "AS COORDENADA 

320 IF S ) 1 THEN 350 

S DE Y SAO MU 

330 PRINT Aid); 

ITO GRANDES" 

340 GOTO 360 

140 GOTO 100 

350 PRINT "*" 

150 PRINT 

360 NEXT I 

160 PRINT 

370 IF X > XI THEN 390 

170 FOR X = XI T0 X2 STE 

380 PRINT "Y"; 

P X3 

390 PRINT 

180 Yü) = 0 

400 AI(ii) = " " 

181 Y(2) = 0 

410 NEXT X 

182 Y(3) = 0 

420 PRINT "X" 

183 Y(4) = 0 

430 DATA "i","2","3" ( " 

184 Y(5) = 0 

U //C // f/t// //n// 

í “ 7 ° f 

185 Y<6) = 0 

t/n/f f/Q/f t/^tf f/^/f 

186 Y(7) = 0 

f ° t 7 t t 

440 END 

187 Y(8) = 0 



■ 


MICROHOBBY 29 














































TWO LINES 

í HGR2 : HCOLOR = 00:T = 14C 
: FOR G = i TO 9: READ C(G),H(G 
),V(G): NEXT : DATA 14,68,9,14 
,80,10,67,48,6,88,32,4.109,16,2 
,138,32,4,155,64,8,162,64,8,162 
,130,15 

2 FOR G = 0 TO 6.35 STEP .05: 
FOR R = 1 TO 9:X(R) = H(R) » 
SIN (G) + T:Y(R) = V(R) * COS 
(G) + C(R):X(0) = X(i):Y(0) = Y 
(1): HPLOT D(R),E(R) TO X(R),Y( 
R) TO X(R - i),Y(R - Í):D(R) = 
X(R):E(R) = Y(R): NEXT : HCOLOR 
= 3: NEXT 

1 HOME : H6R2 : FOR I = 30 TO 
1Í2:L = 5 * l:Y = SIN (I / 57 

.29578):KZ = Y » 35 + 138» HCOL 
OR = 5: HPLOT 277,1 TO KZ,I* H 
COLOR = 6 

2 HPLOT 1,1 TO K%,l: HCOLOR 

= i: HPLOT 1,191 TO KZ,I* HCOLO 
R = 2: HPLOT 279,191 TO KZ,I: 
HCOLOR = 3: HPLOT 138,1 TO KZ, 
I: NEXT I: GOTO 1 


PROTEJA 

o seu 

mcRoconpurmoR 



COM FILTRO DE 
LINHA 


contra 


RUÍDO elétrico 

INTERFERÊNCIA: 

RÁDIO FREQUÊNCIA (RF) 




contra 


PICOS DE VOLTAGEM - 
TRANSIENTES DE TENSÃO 




POTÊNCIA: ATINGE ATÊ 1,5 KVA 


V 


ZENTRANX 

Av. Vitor Manzini, 410 - Santo Amaro - SSo Paulo 
CEP 04745-TEL.: PABX (011) 522-2411 
Filial RIO: (021)233-5233 
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Aluguel de micros: 
uma opção de 
ingresso na 
microinformática 


O fato de não poder ter um compu¬ 
tador em casa já não é mais problema 
para algumas crianças e jovens do Rio 
de Janeiro. A Datamicro, loja instalada 
em um shopping na zona sul do Rio, há 
dois anos, está conseguindo suprir essa 
necessidade de uma maneira inteligente, 
ocupando uma faixa de mercado até en¬ 
tão ignorada. Por preços acessíveis, a 
Datamicro aluga computadores por ho¬ 
ra e a procura tem sido grande, princi¬ 
palmente por parte de quem tem de 9 a 
18anos. 

A Datamicro começou há dois anos 
vendendo microcomputadores mas, 
com o "boom" comercial da informáti¬ 
ca, a comercialização foi ficando difí¬ 
cil, pois algumas lojas de departamentos 
começaram a negociar com micros por 
preços muito mais baixos, fazendo a 
clientela diminuir. Para não sair do mer¬ 
cado, os dois sócios, Antônio Turano e 
Sérgio Henrique Sá Leitão, resolveram 
direcionar a Datamicro para a área edu¬ 
cacional. 

Para isso, a loja foi adaptada e se 
criou uma sala de aula, com capacida¬ 
de para 8 alunos. A faixa etária escolhi¬ 
da foi de 8 a 18 anos, mas não há muita 


Fátima França 

rigidez atualmente. Sete microcompu¬ 
tadores foram devidamente instalados e 
professores contratados para dar início 
aos cursos. 

O primeiro curso, frequentado em 
sua maioria por crianças e adolescentes, 
é o de microcomputadores para crian¬ 
ças, em linguagem BASIC, dividido em 
3 módulos, de 12 horas cada. O objetivo 
é despertar na criança o interesse pelo 
uso do microcomputador pessoal, como 
instrumento de estudo e lazer. O curso 
tem trabalhos de casa que, no caso de 
não se ter um micro pessoal, aluga-se o 
da loja para fazê-los. 

Aos adolescentes de 14 a 18 anos e 
também aos adultos são oferecidos cur¬ 
sos de linguagem BASIC, Programação 
BASIC, Introdução aos microcomputa¬ 
dores e para os mais avançados, Aplica¬ 
ção do microcomputador na engenha¬ 
ria, Linguagem BASIC avançada, Lin¬ 
guagem de Máquina, BASIC para advo¬ 
gados e Aplicação do microcomputador 
em métodos matemáticos. 

Além dos cursos e do aluguel de 
computadores, a Datamicro também faz 
a venda de software. O desenvolvimen¬ 
to de programas específicos para deter¬ 
minadas áreas, parte dos próprios alu- 



A lição de casa feita na escola ou no micro alugado 


Wagner Jorge Nogueira 
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nos, como normalmente acontece. Se¬ 
gundo o diretor Sérgio Henrique Leitão, 
o custo do desenvolvimento de softwa¬ 
re é alto e não compensa manter uma 
equipe para isso. Acrescenta que é pre¬ 
ferível comercializar os programas já 
existentes no mercado ou então adap¬ 
tá-los às exigências. Entre os softwares 
à disposição estão os da série Soluções 
da Microidéia, dos quais os programas 
para AP FITA (controle de estoques, flu¬ 
xo de caixa, controle bancário e orça¬ 
mento doméstico) são compatíveis com 
o TK-2000. 

O TK-2000, da Microdigital, é um 
dos micros utilizados pelos alunos e 
clientes da Datamicro. De acordo com o 
diretor da empresa, Sérgio Henrique Lei¬ 
tão, crianças e adultos preferem o mi¬ 
cro TK-2000, devido a vantagem de 
poder dar ao programa uma melhor re¬ 
solução gráfica e também, no caso do 
público infantil, de operar a máquina 
com jogos em casséte. Ele permite tam¬ 
bém interligação através da linha telefô¬ 
nica, desde que acessado a um modem. 

Além do TK-2000, que pode ser alu¬ 
gado por 0,18 ORTN's, a Datamicro 
mantém para os cursos e aluguel, os 
equipamentos TK 85 (0,125 ORTISTs); 
CP 400 (0,18 ORTISTs); CP 500 (0,45 
ORTN's) e TK 83 com expansão, dois 
drivers e uma impressora. 

Os periféricos e suprimentos tam¬ 
bém não foram deixados de lado. A Da¬ 
tamicro comercializa modem, disque¬ 
tes, pastas para disquetes, joystick para 
o TK-2000 e CP-400, expansão de me¬ 
mória, game charger, revistas e livros 
especializados e também jogos e aplica¬ 
tivos, entre estes, os da Microdigital. 

Diante do sucesso obtido com os 
cursos, a empresa firmou convênio com 
a Faculdade Cândido Mendes de Ipane¬ 


ma e com a Associação dos Antigos 
Alunos da Politécnica, que agora tam¬ 
bém formam turmas de interessados em 
saber operar um micro. Os preços de ju¬ 
nho estavam em 75 mil para crianças, e 
195 mil para adolescentes e adultos. 
Atualmente, a Datamicro conta com 
uma média de 60 alunos por mês e tra¬ 
balha com 15 professores, que são en¬ 
genheiros, analistas ou estudantes dos 
cursos de informática da PUC e da SE- 
SAT. 

O engenheiro Sérgio Henrique Sá 
Leitão diz que, depois de dois anos, já é 
possível fazer uma análise dos motivos 
do sucesso da Datamicro: 

— Nós da empresa temos sentido 
uma grande curiosidade por parte da¬ 
queles que nos procuram. Atraídos pela 
farta divulgação nos meios de comuni¬ 
cação, crianças e adolescentes dos anos 
80 associam sempre a informática ao 
progresso, no caso financeiro, e ao 
"status" de ser uma pessoa inteligente 
por saber operar a chamada máquina do 
futuro. O público que vem até nós acre¬ 
dita, que não basta comprar um micro, 
mas também saber operá-lo de acordo 
com suas necessidades. 

O diretor da Datamicro acrescenta 
que, embora as crianças prefiram sem¬ 
pre utilizar os micros para jogos de la¬ 
zer, os adolescentes já não pensam da 
mesma maneira. Na faixa etária de 14 a 
18 anos, os horizontes se ampliam e os 
usuários passam a perceber que podem 
influenciar um programa de acordo com 
suas vontades e necessidades, o que 
torna muito mais interessante o manu¬ 
seio do micro. "Com isso", finaliza, 
"contribuímos para formar pessoas mais 
preparadas para o mundo do futuro e 
ampliamos nossa atuação no mercado 
da informática". ■ 



O ensino prático na sala de aula 



Traga este anúncio e ganhe um brinde na compra de 
qualquer item 
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DEMOLIÇÃO 

â 


Wilson Fazzio Martins 


Este programa destina-se aos micros da linha TK 85 e 
compatíveis com 16K de memória RAM. Nele é feita a si¬ 
mulação de um jogo, onde o objetivo é destruir uma imensa 
parede, controlando-se uma pá e rebatendo-se uma bola. 

Programando 

Para entrar os dados hexadecimais na memória do micro 
deve-se usar um monitor Assembler, com uma primeira li¬ 


nha REM seguida de 650 caracteres, no mínimo. Ao termi¬ 
nar de inserir os dados em Linguagem de Máquina, deve-se 
eliminar o monitor, tomando cuidado para não apagar a pri¬ 
meira linha (1 REM), digitando-se logo em seguida as linhas 
10, 20 e 30 do programa BASIC. 

Feito isso, deve-se digitar RUN para gravar o programa na 
fita, pois, se o mesmo for iniciado, não será mais possível 
a sua parada, perdendo-se todo o trabalho feito anteriormen¬ 
te. 


cada vez melhor! 


A revista MICROHOBBY é dedicada aos 
leitores que desejam tirar o máximo proveito' 
de seu micro. 

Muitas dicas, programas e cursos numa lin 
guagem altamente didática. 

Todo mês um mundo de informações valiosas 
tanto para os principiantes, quanto para os “ex 
perts". 
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Jogando 

Depois de salvo o programa em fita, este se inicia pergun¬ 
tando o tamanho da pá. Deve-se digitar um número de 1 a 
9 (1 = pá menor, 9 = pá maior). Logo após, ele pedirá a 
velocidade de execução do programa. Digite novamente um 
número de 1 a 9 (1 = mais rápido, 9 = mais lento). 

O jogo começa e o jogador deve usar as teclas 5 e 8 para 
mover sua pá e impedir que a bola caia no chão, rebatendo- 
a. Ao atingir a parede, a bola vai retirando seus tijolos, sen¬ 
do que cada um destes vale 10 pontos. Quando a bola atin¬ 
ge sua pá, ou cantos da tela, ela adquire um novo curso, ge¬ 
rado aleatoriamente. A parede também se move, da direita 
para a esquerda, e quando esta é totalmente destruída, o 
jogador ganha 1000 pontos e a velocidade de execução do 
programa torna-se mais acelerada. Mas se a mesma já esti¬ 
ver no máximo de sua rapidez, a pá começará a diminuir. 

Se a bola vier a chocar-se com o chão, o jogador perde 
uma vida, não alterando a situação em que se encontra a 
parede. Ao terminarem as seis vidas disponíveis o jogo ter¬ 
mina, devendo-se digitar "NEW UNE" para que o programa 
tenha início novamente. 
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Característica do Programa 

Elaborado totalmente em Assembler, este programa cons¬ 
ta de alguns endereços que podem ser modificados a gosto 
do programador: 

16668 - Determina o caractere da bolinha e pode ser mo¬ 
dificado para qualquer outro caractere simples que não se¬ 
ja igual ao da parede. 

16660, 16676, 16780 - Determinam o caractere que com¬ 
põe a parede. 

16573 - Determina o caractere que constitui a pá. 

16568, 16578, 16604, 16798 - Contém o código do ca¬ 
ractere do chão. 

16775, 16645 - Determinam o tamanho da parede. 

16635 - Determina a velocidade em que gira a parede. Pode 
ser um número de 1 a 50. Para fazer a parede ficar imóvel, 
deve-se colocar o valor zero no endereço 16663. 

17037 até 17148 - É a área da memória onde se encontra 
a tabela de mensagens, sendo que estas podem ser modifi¬ 
cadas sem problemas, desde que não se altere o tamanho 
das mesmas. 
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MANUALDO 

MICROCOMPUTADOR Z-80 

por William Barden Jr. 

A finalidade deste livro é tríplice: apresentar ao 
leitor o hardware do Z-80, examinar os aspectos qua¬ 
se esmagadores (em número de instruções) do soft¬ 
ware do Z-80 e descrever sistemas de microcompu¬ 
tadores construídos em torno do Z-80. CrS 56.800 

ALÉM DO BASIC 
LINGUAGEM ASSEMBLY 
PARA A LINHA SINCLAIR 

por Nelson N. Santos 

Este é o primeiro livro "didático" sobre lingua¬ 
gem de máquina para micros da linha Sinclair. Evi¬ 
tando "fórmulas mágicas", esclarece as dúvidas e 
desvenda todos os mistérios desta difícil mas fasci¬ 
nante linguagem. CrS 27.600 

PROGRAMAS PARA JOVENS 
PROGRAMADORES: 

TK 82/83/85 E CP 200 

♦ 

por Linda Hurley 

Este é um livro baseado em um conjunto de pro¬ 
gramas que se ajustarão ao ZX-81 ou TS 1000, TK 
82/83/85 e CP 200 com 1K ou 2K de RAM . Cada ca¬ 
pítulo inicia com um programa muito curto e fácil 
que faz alguma coisa imediatamente. 

Este livro foi escrito para pessoas que estão ape¬ 
nas começando a se interessar por computação. 

CrS 18.000 

ZX-81 (TKs e seus Compatíveis) 


PRIMEIROS PASSOS NA PROGRAMA¬ 
ÇÃO EM LINGUAGEM DE MAQUINA - 

Silveira .CrS 25.000 

40 ROTINAS EM LINGUAGEM DE MÁ¬ 
QUINA - para TKe CP 200 - Carvalho . CrS 18.000 
DESAFIO OS MAIS EXCITANTES JO¬ 
GOS EM BASIC - Botelho.CrS 42.600 

BASIC TK — Volume 1 — Elementar — 

Piazzi-Rossini.CrS 20.300 

BASIC TK — Volume 2 — Programação 

— Piazzi-Rossini.CrS 28.900 

BASIC TK — Volume 3 — Avançado — 

Piazzi-Rossini.CrS 46.900 

PROGRAMAS ADMINISTRATIVOS EM 

BASIC SINCLAIR - Karsten.CrS 29.800 

DICIONÁRIO DO BASIC SINCLAIR - 


Lima .:.CrS 12.000 

JOGOS EM LINGUAGEM DE MAQUINA 

— Volume 3 — Piazzi.CrS 32.900 

COLEÇÃO DE PROGRAMAS - 3 Volu¬ 
mes — Salvato/Hamzo/Siqueira.CrS 50.600 


LINGUAGEM BASIC 

30 PROGRAMAS EM BASIC PARA 


COMPUTADORES PESSOAIS - Chan¬ 
ce .CrS 42.000 

GUIA PRATICO DE PROGRAMAÇÃO EM 

BASIC - Smith.CrS 12.000 

BASIC APLICADO - UM ENFOQUE 

PROFISSIONAL - Prates.CrS 25.800 

MICROCOMPUTADORES - Introdução 
a Linguagem Basic -»■ 6? edição — KreschCrS 15.600 
BASIC PARA APLICAÇÕES COMER¬ 
CIAIS - Hergert.CrS 24.000 

PROGRAMAÇÃO COM BASIC - Gott- 

fried.CrS 29.900 

BASIC PARA MICROS PESSOAIS - 

2? edição — Pereira.CrS 29.300 

INICIAÇÃO AO BASIC - Fox.CrS 19.900 

INTRODUÇÃO A LINGUAGEM BASIC - 

2 a . edição — Streinbruch.CrS 18.000 

BASIC APLICAÇÕES COMERCIAIS - 

Borges ... r.CrS 22.000 

PROGRAMAÇÃO BASIC - Magri.CrS 35.000 

BASIC - Shimizu.CrS 32.000 

BASIC - INTRODUÇÃO EM SETE LI¬ 
ÇÕES - Securato.CrS 23.000 

BASIC PARA COMPUTADORES PES¬ 
SOAIS - Pereira.CrS 29.000 

PROGRAMAÇÃO EM BASIC - Natale . CrS 25.000 
ELEMENTOS DE PROGRAMAÇÃO EM 

BASIC — Batista/Katakura..CrS 15.200 

BASIC COM ESTILO — Provérbios de 

Programação — Nagin/Ledgard.CrS 27.800 

BASIC BÁSICO — Uma Introdução a 

Programação — Monro.CrS 14.000 

INTRODUÇÃO A LINGUAGEM BASIC - 

Souza .CrS 19.800 

35 PROGRAMAS BASIC PARA MICRO¬ 
COMPUTADORES - Barbuto.CrS 27.600 

SEU PRIMEIRO PROGRAMA EM BASIC 

- Zaks.CrS 28.600 

PROGRAMAS USUAIS EM BASIC - 

Poole.CrS 26.000 

PROGRAMAS PRÁTICOS EM BASIC - 

Poole.CrS 26.000 

BASIC EM SEGREDOS - Mirshawka ... CrS 42.000 
LINGUAGEM BASIC - Mirshawka.CrS 38.000 
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BOLOGNA & MILANO 


(VERSÃO TK-2000) 


Milton Rodrigues 


Com este programa preenchemos 
uma lacuna em jogos tipos "adventure" 
para o TK-2000. Pensando em explorar 
as possibilidades gráficas e sonoras, 
este jogo foi elaborado a partir do Bolo¬ 
nha e Milano da revista Microhobby n°. 
16, de Tomaz Tauscher e Toshinobu 
Ishida para o TK-85. 

Existem diferenças de comando, 
subdividores de tela, som, etc., sendo 
que as variáveis e os algoritmos perma¬ 
neceram. 

As regras não mudaram, bastando 
dar uma lida nas instruções que estão no 
próprio programa para entender o jogo. 

Agora preparem-se para a digita¬ 
ção um tanto longa, mas que compensa 
plenamente pela riqueza de resultados. 

Sabemos que para acionar os ca¬ 
racteres gráficos digitamos CONTROL- 
B, mas podemos nos defrontar com al¬ 
guns problemas se não soubermos uti¬ 
lizar corretamente esta chave. Para tan¬ 
to, aqui vão algumas dicas que irão pou¬ 
par dores de cabeça: 

1) Digite PRINT e abra "aspas": 
?" . . . 

2) Digite CONTROL-B (muda o te¬ 
clado para caracteres) 

3) Digite o caractere escolhido em 
conjunto com SHIFT ou CONTROL- 
SHIFT 

4) Digite CONTROL-B (retorna o 
teclado ao normal) 

5) Digite "aspas: . . (fechando a 
linha de impressão) 

Se você esquecer de digitar CON- 
TROL-B (retornando ao teclado normal) 
e digitar RETURN, novas coisas irão 
acontecer. 

Quando listamos um programa em 
uma impressora sem dispositivo gráfico, 
temos uma surpresa: no lugar do carac¬ 
tere surge letra. Para identificar o carac¬ 
tere, verifique a Tabela I. 


Tabela I 


ra 


SHIFT H 

rb 

— 

SHIFT B 

rc 

— 

SHIFT N 

rh 

— 

SHIFT D 

ri 

— 

SHIFT F 

rj 

— 

SHIFT C 

rk 

— 

SHIFT V 

rl 

— 

SHIFT A 

rm 

— 

SHIFT S 

rr 

— 

SHIFT M 

r' 

— 

SHIFT G 

r— 

— 

SHIFT J 

rt 

— 

CRTZ- SHIFT TEXT 

rw 

— 

CRTZ — SHIFT 9 

rã 

— 

CRTZ - SHIFT J 

ro 

— 

CRTZ - SHIFT? 

r 

— 

CRTZ - SHIFT 

rç 

— 

CRTZ - SHIFT M 

rv 

— 

CRTZ - SHIFT8 

ry 

— 

CRTZ - SHIFT, 

rz 

— 

CRTZ - SHIFT. 

rP 

— 

CRTL- SHIFT G 

rQ 

— 

CRTL — SHIFT H 

rS 

— 

CRTL - SHIFT N 

rT 

— 

CRTL - SHIFT A 

rU 

— 

CRTL - SHIFT S 

rV 

— 

CRTL - SHIFT Z 

rW 

— 

CRTL - SHIFT X 

rY 

— 

CRTL - SHIFT F 

rZ 

— 

CRTL - SHIFT C 


OBSERVAÇÃO: acionar MP antes 
da digitação e nunca dar RESET. 


BOM DIVERTIMENTO! 


REH BOLOGNA & HILANO 
ELABORADO P/ 

TK20G0 POR MILTON RODRIGU 
ES 

2 REH A PARTIR DO PR06R 
AHA DE TAUSCH 

ER E ISHIDA 

3 GR 

4 COLOR = 2 

5 FOR X = 0 TO 39 

7 VLIN 0,39 AT X 

6 NEXT 

9 FOR X = í TO Í0 
Í0 HTAB 9: UTAB í: PRINT 
" rt BOLOGNA 
E HILANO rw " 
íí HTAB 9: VTAB í: INUER 
SE : PRINT " 

rt BOLOGNA E HILANO rw " 
Í2 NORHAL 

Í3 SOUND 23í,8 TO i3 r 8 
Í4 NEXT 
15 POKE 34 r í 
íó SPEED= 255 
Í7 FOR X = 2 TO 39 
Í8 COLOR = RND (t$ * 7 

Í9 HLIN 0,39 AT X 

20 COLOR = RND (2) * 7 

21 SOUND í3 r 4 

22 VLIN 2,39 AT X 

23 SOUND 26,4 

24 NEXT 

25 DIH A(4) 







26 DIN 8(4) 

27 DIH C(4) 

28 DIH 0(4) 

29 DIH 6(4) 

30 DIH H(4) 

31 DIH 1(4) 

32 DIH J(4) 

33 DIH K(4> 

34 DIH L(5) 

35 DIH H(4) 

36 DIH N(4) 

37 DIH 0(4) 

38 DIH P(5) 

39 DIH 0(4) 

40 DIH R(4) 

41 DIH S(4) 

42 DIH K5) 

43 OIH U(5) 

44 DIH 0(5) 

45 DIH Y(5) 

46 DIH U(4) 

47 DIH Z(4) 

48 DIH AKÍ65 

49 DIH Ki(4) 

50 DIH NKS) 

51 DIH TK5) 

52 E = 0 

53 Gi = 0 

54 0 = 0 

55 Y(5) = 1400 

56 TS(Í) = "BOLOGNA" 

57 T§(2) = "Hl LANO" 

58 Ti(3) = "VENEZIA" 

59 TSÍ4) = "TORINO" 

60 Aí(í) = "SENHOR " 

61 A$(2) = "BARAO " 

62 Ai(3) = "CONDE " 

63 Aí(4) = "HARSUES " 

64 Aí(5) = "DUQUE " 

65 Aí(6) = "GR-DUQUE " 

66 AK7) = "PRÍNCIPE * 

6? Ai(8) = " * REI * " 

66 Aí!9) = "DAHA " 

69 Aí(10) = "BARONESA " 

70 Aííii) = "CONDESSA " 

71 Aí(12) = "HARQUESA " 

72 AK13) = "DUQUESA " 

73 AK14 ) = "GR -DUQUESA " 

74 AK15) = "PRINCESA " 

75 Aí(16) = " * RAINHA * 

// 

76 SOUND 64,50 TO 56,50 
TO 51,50 TO 4 

2,50 TO 1,15 TO 51,50 TO 
42,100 


77 HOHE : PRINT 

78 PRINT "QUANTAS PESSOA 
S VAO PARTICI 

PAR ? (DE 1 A 4 JO 

GADORES) 

79 GET Fi 

80 F = UAL (Fl) 

81 IF F < 1 OR F ) 4 THE 
N 79 

82 HOHE : PRINT 

83 PRINT "IRAO PARTICIPA 
R ";F;" PESSO 

AS, OK ? 

84 FOR X = 1 TO 100: SOU 
ND RND (1) * 

X.iO: NEXT 

85 FOR A = 1 TO F 

86 HOHE : PRINT 

87 PRINT "QUEH E 0 GOVER 
NANTE DE ";Ti 

(A) ; : INPUT KKA) 

88 HOHE : PRINT 

89 NKA) = KÍ(A) + " DE " 
+ TSíA) 

90 PRINT Ni(A): PRINT "H 
OHEH (H) OU H 

ULHER (H! ?" 

91 GET Fi 

• 92 IF Fi = "H" THEN 97 

93 IF Fi = "H" THEN 95 

94 GOTO 91 

95 V(A) = 0 

96 GOTO 98 

97 V(A) = 8 

98 HOHE 

99 G(A) = 25 

100 H(A) =■ Í0 

101 KA) = 5 

102 J(A) = 2 

103 Z = INT ( RND (1) * 
15) 

104 0(A) = 1420 + Z 

105 K(A) = 1000 

106 L(A) = 10000 

107 R(A> = 5000 

108 T(A) = i 

109 U(A) = 1 

110 N(A) = 4 

111 P(A) = 25 

112 Q(A) = 5 

113 H(A) = 25 

114 S(A) = 2000 


115 SOUND 13,8: NEXT : P 
RINT 

116 PRINT "DESEJA LER AS 
INSTRUÇÕES ? 

(S/N) " 

117 GET Fi 

118 IF Fi = "N" THEN 121 

119 IF Fi = "S" THEN 745 

120 GOTO 117 

121 HOHE : PRINT : PRINT 
"0. OEBIL HE 

NTAL": PRINT : PRINT "1. 
APRENDIZ 

it 

122 PRINT : PRINT "2. M 
ENTUREIRO" 

123 PRINT : PRINT "3. HE 
STRE" 

124 PRINT : PRINT "4. GR 
ANDE HESTRE": 

PRINT : PRINT "5. ILUHIN 
ADO" 

125 PRINT : INVERSE : PR 
INT "EH QUE N 

IVEL DESEJA JOGAR ?": NOR 
HAL : PRINT : PRINT 

126 GET Fi 

127 U(5) = UAL !FÍ) 

128 IF U(5) < 1 OR U(5) 

) 4 THEN 806 

129 U(5) = U(5) + 2 + 2 * 
U(5) 

130 E = E + 1 

131 IF E ! F THEN 142 
Í32 IF Z(E) < > 1 THEN 
136 

133 W(E) = N(E) - 1 

134 IF U(E) = - 1 THEN 
136 

135 E = E + 1 

136 IF T(E) = - 1 THEN 
138 

137 GOTO 139 

138 E = E + 1 

139 IF T(l) < 1 AND T(2) 

< 1 AND T<3) 

< 1 AND T(4) < i THEN 66 

4 

140 IF E ) F THEN 142 

141 GOTO 145 

142 Y(5) = Y(5) + 1 





143 E = 1 

144 GOTO 13Í 

145 IF Y(5> > = O(E) TH 
EN 168 

146 GOSUfi 199 

147 GOSUB 265 

148 GOSUB 355 

149 GOSUB 311 

150 GOSUB 672 

151 GOSUB 457 

152 GOSUB 549 

153 GOSUB 621 

154 GOTO 130 

155 HOME 

156 PRINT : INVERSE : PR 
INT "NOB SOL 

CL MER SERV TERRA I 
HW": NORMAL : PRINT 

157 PRINT 

158 FOR A = 1 TO F 

159 INVERSE : PRINT TKA 
) ; : NORMAL : PRINT 

160 PRINT INT (N<A)>; T 
AB( 6); INT ( 

P(A>); TAB< 11); INT (Ô(A 
)); TAB( 

15); INT (H(A)); TAB( 20) 
; INT (S 

(A)); TAB( 26); INT (L(A) 
); TAB( 

33); INT (K(A)) 

161 NEXT 

162 PRINT : PRINT "( APE 
RTE < C > P/ 

CONVENCOES )" 

163 PRINT ! INVERSE : PR 
INT "(APERTE 

<0> P/ CONTINUAR)";: NORM 
AL 

164 GOSUB 742 

165 IF Zl = "C" THEN GO 
SUB 609 

166 IF Zl = "0" THEN RE 
TURN 

167 GOTO 164 

168 HOME : INVERSE : PRI 
NT "NOTICIAS 

DESAGRADAVEIS": NORMAL : 
PRINT : PRINT 

169 PRINT : INVERSE : PR 
INT NI(E);! NORMAL 

170 PRINT "ACABA DE FALE 
CER" 


171 T(E) = - 1 


197 S(E) = S(E) - 12 

172 Y = INT ( RND (2) * 


198 RETURN 

8) 


199 U = INT (( INT ( RND 

173 IF Y(5) < = Í430 TH 


(1) * 5) + INT ( RND (2) 

EN 176 


* 6)) / 2) + 1 

174 PRINT : PRINT "DEVID 


200 IF y = 1 THEN 205 

0 A VELHICE A 


201 IF W = 2 THEN 207 

POS UM LONGO GOVERNO" 


202 IF W = 3 THEN 209 

175 GOTO 181 


203 IF W = 4 THEN 211 

176 IF Y < 4 THEN PRINT 


204 IF H = 5 THEN 213 

: PRINT "DEV 


205 UI = "ESTIAGEM - AMEA 

IDO A PNEUMONIA DURANTE U 


CA DE FOME" 

M RIGORO 


206 GOTO 214 

SO INVERNO" 


207 UI = "TEMPO RUIM - CO 

177 IF Y = 5 THEN PRINT 
: PRINT "DEV 


LHEITA POBRE" 

IDO A PESTE NEGRA" 


208 GOTO 214 

178 IF Y = 4 THEN PRINT 


209 UI = "TEMPO NORMAL - 

: PRINT "DEV 


COLHEITA RAZO 

IDO A TIFO POR BEBER AGUA 


AVEL" 

CONTAMI 


210 GOTO 214 

NADA" 


211 WS = "TEMPO BOM ! COL 

179 IF Y = 6 THEN PRINT 


HEITA BOA" 

: PRINT "DEV 


212 GOTO 214 

IDO 0 ATAQUE DOS BARBAROS 


213 Ul = "TEMPO OTIMO !!! 

DURANTE 


COLHEITA EXC 

UMA VIAGEM" 


ELENTE !!!" 

180 IF Y > 6 THEN PRINT 


214 R = INT ( RND (1) » 

: PRINT "DEV 


50) 

IDO A ENVENENAMETO ALIMEN 


215 IF R = 0 THEN R = 1 

TAR" 


216 R(E) = <R(E) * 100 - 

181 PRINT : PRINT "APERT 


R(E) » R) / i 

E RETURN" 


00 

182 INPUT Zl 


217 X = INT (S(E) - D(E) 

183 IF F = 1 THEN 766 


* 100) 

184 GOSUB 457 


218 IF X ( 0 THEN X = 1 

185 GOSUB 155 


219 Y = y - .5 

186 GOTO 131 


220 DD = U * (S(E) - X) 

187 K(E) = INT (K(E)> 


221 IF DD = 0 THEN DD = 

188 RETURN 


1 

189 Z = ( RND (1) * A) * 


222 Hl = INT (Y * L(E) / 

S(E) / 100 


1.5 + Y * X + ( RND (1) * 

190 Z2 = INT (Z) 


S(E)) - DD) 

191 PRINT : PRINT Z2;" S 


223 R(E) = INT (R(E) + H 

ERVOS NASCERA 


1) 

M ESTE ANO" 


224 Dl = N(E) * 100 + C(E 

192 S(E) = S(E) + Z2 


) *40 + M(E) 

193 RETURN 


* 30 + P(E) * 10 + S(E) 

194 Z = < RND (1) * A) * 


* 5 

S(E) / 100 


225 L = INT ((100 * U + 

195 Z2 = INT <Z) 


INT ( RND (1 

196 PRINT : PRINT Z2;" S 


) * 9) + INT ( RND (1) * 

ERVOS MORRERA 


9)) / 1 

M ESTE ANO" 


0) 







* 10) * (Y / 100) + U(E) 

226 L = (Y(5) - 1400 + L) 


* 20 

/ 10 


253 Sí = (N(E) * 50 + M(E 

227 Z = 6 - W 


) * 75 + U(E) 

228 G = ( INT ( RND (1) * 


* 10) * (Y / 100) « (5 - 

5) + INT ( RND (1) * 5) 


J(E)) / 

+ Z * 10) / (5 + 2 « Y) * 


2 

3 


254 11 = N(E) * 250 + U(E 

0 


) » 20 + (10 » J(E) * N(E) 

229 G = INT (G) 


) # (Y / 100) 

230 RETURN 


255 Cl = INT (5 » Cl * G 

231 PRINT : PRINT "OS RA 


(E) / 100) 

TOS COMERAM " 


256 Sí = INT (25 * SI * 

;R:"% DA RESERVA DE GRAOS 


H(E) / 100) 

// 


257 11 * INT ( ABS (2 * 

232 PRINT : PRINT UI 


11 * I(E) / 1 

233 PRINT "(";Hi;" SACAS 


00)) 

)" 


258 PRINT : INVERSE : PR 

234 IF K(E) < 32766 THEN 


INT "RENDA DO 

GOSUB 187 


ESTADO: ";J + Cl + Si + 

235 PRINT : INVERSE : PR 


11;" FLO 

INT "RESERVA 


RINS";: NORMAL : PRINT 

DEMANDA PRECO PRECO 1 


259 PRINT : INVERSE : PR 

11111 G 


INT "ALFAND. 

RAOS GRAOS GRAO T 


TAXA S/ IMPOSTO 

ERRA": NORMAL : PRINT 


JUSTIÇA 

237 PRINT INT (R(E>); T 

AB( 10); INT 


VENDAS 

(Dl); TAB( 19); INT (G); 


";: NORMAL 

TAB( 26) 


261 PRINT TAB( 2);G(E); 

;L; TAB( 33); INT (K(E)) 


" Z"; TAB( 13 

238 PRINT "SACOS SACO 


);H(E);" Z"; TAB( 24);I(E 

S MILSC 


);" Z"; TAB( 33);Jl 

HECT. FLORINS" 


262 PRINT : PRINT TAB( 

239 RETURN 


2);CÍ; TAB( 1 

240 J = (J(E) * 300 - 500 


3);S1; TAB( 24);I1; TAB( 

) * T(E) 


34) ;J 

241 IF J(E) = 1 THEN 245 


263 PRINT "FLORINS FL 

ORINS FLOR 

242 IF J(E) = 2 THEN 247 


INS FLORINS" 

264 RETURN 

243 IF J(E) = 3 THEN 249 


265 HOME : FOR X = 1 TO 

20: SOUND 28, 

244 IF J(E) = 4 THEN 251 


4: NEXT 

266 PRINT : INVERSE : PR 

245 Jt = "JUSTA" 


INT AICV(E) + 

246 GOTO 252 


T(E));Ni(E);S NORMAL : PR 

247 J! = "MODERADA" 


INT 

248 GOTO 252 


267 GOSUB 231 

249 Jl = "RÍSPIDA" 


268 PRINT : PRINT "l.COM 

250 GOTO 252 


PRAR GRAOS 2 

251 Jl = "ABUSIVA" 


.VENDER GRAOS" 

252 Cl = (N(E) * 90 + 8(E 


269 PRINT "3.COMPRAR TER 

) « 35 + M(E) 


RA 4.VENDER 

TERRA" 


270 PRINT : INVERSE : PR 
INT "(DIGITE 

<0> P/ CONTINUAR)";: NORH 
AL 

271 GOSUB 742 

272 IF Zl ( > "0" AND Z 
1 < > "1" AND Zl < > "2" 

AND Zl < > "3" AND Zl < 

> "4" THEN 268 

273 II = UAL (Zl) 

274 IF li ) 4 THEN 268 

275 IF lí < i THEN RETU 
RN 

276 IF lí = 1 THEN 280 

277 IF lí = 2 THEN 288 

278 IF lí = 3 THEN 297 

279 IF li = 4 THEN 302 

280 PRINT : PRINT "ÔUANT 
0 GRAO VAI OU 

ERER COMPRAR INPUT II 

282 K(E) = K(E) - (lí * G 
/ 1000 ) 

283 R(E) = R(E) + II 

284 HOME 

285 PRINT : INVERSE : PR 
INT AKT(E) + 

V(E));N1(E) ; : NORMAL : PR 
INT 

286 GOSUB 234 

287 GOTO 268 

288 PRINT : PRINT "8UANT 
0 GRAO VAI OU 

ERER VENDER "?: INPUT lí 

290 IF II < = R(E) THEN 
294 

291 PRINT : PRINT "VOCE 

NAO TEM TANTO 

// 

292 FOR T = 1 TO 50: SOU 
ND Í,X / 2: NEXT 

293 GOTO 288 

294 K(E) = K(E) + (li * G 
/ 1000 ) 

295 R(E) = R(E) - II 

296 GOTO 284 

297 PRINT : PRINT "8UANT 
OS HECTARES V 

AI QUERER COMPRAR INP 
UT lí 

299 L(E> = L(E) + lí 

300 K(E) = K(E) - (lí * L 
) 

301 GOTO 284 





302 PRINT : PRINT "ÔUANT 
OS HECTARES V 
AI QUERER VENDER INPU 
T lí 

304 IF li < = (L(E) - 5 
000) THEN 308 

305 PRINT : PRINT "VOCE 
NAO PODE VEND 

ER TANTO ! " 

306 FOR T = i TO 50: SOU 
NO i,X / 2: NEXT 

307 GOTO 302 

308 L(E) = L(E) - lí 

309 K(E) = K(E) + (lí # L 

> 

310 GOTO 284 

311 HOHE 

312 PRINT : INVERSE : PR 
INT AI(T(E) + 

V(E));NS(E);! NORMAL : PR 
INT 

313 GOSUB 240 

314 PRINT : PRINT "i.ALF 
ANDEGA 2.TAX 

A S/VENDAS" 

315 PRINT : PRINT "3.INP 
OSTO 4.JUS 

TICA" 

316 PRINT : PRINT "(DIGI 
TE 0 NUMERO D 

A TAXA P/ ALTERAÇÕES": PR 
INT : INVERSE : PRINT "(Dl 
GITE <0> P/ CONTINUAR) 

V NORMAL 

317 GOSUB 742 

318 IF ZS < > "0" AND Z 
I < > "1" AND ZS < > "2" 

AND ZS ( > "3" AND ZS < 

) "4" THEN 317 

319 I = VAL (ZS) 

320 IF I < 1 THEN 345 

321 IF I = 1 THEN 325 

322 IF I = 2 THEN 330 

323 IF I = 3 THEN 334 

324 IF I = 4 THEN 338 

325 PRINT : PRINT "NOVA 
TAXA DE ALFAN 

DEGA (0 A 100)"-: INPUT I 

326 IF I > 100 THEN I = 
100 

327 IF I ( 0 THEN I = 0 

328 G(E) = I 


329 GOTO 311 

330 PRINT : PRINT "NOVA 
TAXA S/ VENDA 

S (0 A 50) "•: INPUT I 

331 IF I > 50 OR I < 0 T 
HEN I = 5 

332 H(E) = I 

333 GOTO 311 

334 PRINT : PRINT "NOVA 
TAXA DE IMPOS 

TO (0 A 25) ";: INPUT I 

335 IF I < 0 OR I ) 25 T 
HEN I = 0 

336 I(E) = I 

337 GOTO 311 

338 PRINT : PRINT "JUSTI 
CA: i.JUSTA 

2.MODERADA" 

339 PRINT " 3.RI 

SPIDA 4.ABUS 

IVA" 

340 GOSUB 742 

341 IF ZS ( > "1" AND Z 
S < > "2" AND ZS ( > "3" 

AND ZS ( ) "4" THEN 340 

342 I = VAL (ZS) 

343 J(E) = I 

344 GOTO 311 

345 K(E) = K(E) + Cl + Si 
+ 11 + J 

346 HOME 

347 IF K(E) > = 0 THEN 
353 

348 JE = INT ( RND (1) « 
50) 

349 IF JE ( 20 THEN 348 

350 PRINT : PRINT "OS BA 
NCOS COBRARAM 

";JE;"2 DE JUROS SOBRE A 
SUA Dl 
VIDA" 

351 JJ = 1 + JE / 100: FO 
R T = 1 TO 10 

0: SOUND RND (1) * 50,10 
: NEXT 

352 K(E) = INT (K(E) * J 
J) 

353 IF K(E) ( ( - 10000 
» T(E)) THEN 

694 

354 RETURN 

355 PRINT : PRINT "ÔUANT 
0 GRAO FORNEC 


ERA PARA 0 CONSUMO " ; : IN 
PUT 61 

356 IF G1 > = (R(E> / 5 
) THEN 360 

357 PRINT : PRINT "VOCE 
DEVERA FORNEC 

ER NO MÍNIMO 202 DE SUA 
RESERVA 

// 

358 FOR T = 1 TO 50: SOU 
ND ( RND (1) * T),5: NEXT 

359 GOTO 355 

360 IF G1 < = (R(E) - R 
(E) / 5) THEN 

364 

361 PRINT : PRINT "VOCE 
DEVERA MANTER 

202 DE SUA RESERVA" 

362 FOR T = 1 TO 20: SOU 
ND RND (1) » 

20,T * 2: NEXT 

363 GOTO 355 

364 R(E) = R(E) - G1 

365 HOME 

366 PRINT : INVERSE : PR 
INT AS(T(E) + 
V(E));NS(E) ; : NORMAL : PR 
INT 

367 Z = Gí / Dl - 1 

368 IF Z ) 0 THEN Z = Z 
/ 2 

369 IF Z > .25 THEN Z = 

Z / 10 + .25 

370 Z2 = 50 - G(E) - H(E) 
- I(E) 

371 IF Z2 < 0 THEN 12 = 
12 * J(E) 

372 12 = 12 / 10 

373 IF Z2 ) 0 THEN 12 = 
12 + 3 - J(E) 

374 Z = Z + (Z2 / 10) 

375 IF Z ) .5 THEN Z = . 
5 

376 IF Gi < (Dl - 1) THE 
N 414 

377 A = 7 

378 GOSUB 189 

379 A = 3 

380 GOSUB 194* 

381 IF (G(E) + H(E)) < 3 
5 THEN M(E) = 





H(E) + INT ( RND (í) * 8 
) 

382 IF I(E) < INT ( RND 
(í) # 20) THEN N(E) = N(E 

) + INT ( RND (2) * 4) - 
1 

383 Ô(E> = Ô(E) + INT ( 
RND (i) * 3) - 1 

384 IF Gí < (Di + Dí * . 
3) THEN 402 

385 12 = S(E) / ÍOOO 

386 Z = (Gí - Dí) / Dí * 

10 

387 Z = Z * Z2 * INT ( R 
ND (í) * 25) + INT ( RND 
(2) » 40) 

388 IF Z ) 32000 THEN Z 
= 32000 

389 12 -1 

390 Z = INT ( RND (í) * 
12) 

39í IF Z < í THEN Z = 2 

392 PRINT : PRINT Z-" SE 
RVOS MUDARAM 

PARA A SUA CIDADE" 

393 FOR T = i TO 20: SOU 
ND RND (í) * 

20,20: NEXT 

394 S(E) = S(E) + Z 

395 U(E) = U(E) + .5 

396 Z2 = Z / 5 

397 Z = INT ( RND (í) * 
12) 

398 IF Z > 50 THEN Z = 5 
0 

399 M(E' = M(E> + Z 

400 N(E) = N(E) + 1 

401 8(E) = Q(E) + 2 

402 IF J(E) < 3 THEN 413 

403 Jí = S(E) / 100 * (J( 
E) - 2) * (J< 

E) - 2) 

404 Jí = INT ( RND (i) * 
Ji) 

405 IF Jí < = i THEN Jí 
= 2 

406 S(E) = S(E) - Jí 

407 PRINT : PRINT Jí;" S 
ERVÔS FUJIRAM 

EM VIRTUDE DAS INJUSTIÇA 
S" 

408 PRINT : INVERSE : PR 


INT "(DIGITE 

(0) P/ CONTINUAR)"-: NORH 
AL 

409 GOSUB 742 

4Í0 IF ZJ = "0" THEN 4Í2 

4ÍÍ GOTO 409 

4Í2 HOME 

413 GOTO 428 

4Í4 X = (Dí - Gí) / Dí * 

ÍOO - 9 

415 X2 = X 

416 IF X ( =65 THEN 4i 
9 

417 X = 65 

418 M(E) = H(E) / 2 

419 IF X > =0 THEN 422 

420 X2 = 0 

421 X = 0 

422 A = 3 

423 GOSUB 189 

424 A = X2 + 8 

425 GOSUB 194 

426 IF Z2 > 1000 THEN U( 
E) = U(E) / 2 

427 GOTO 402 

428 HE = H(E) 

429 IF H(E) < = 5 THEN 
HE = INT ( RND (i) * 4 + 
1) 

430 Z = INT (A(E) * S(E) 

» M(E) / (Í5 

00 » SOR (HE))) 

431 IF Z ) = A(E) * 100 
0 THEN Z = INT (A(E) * 30 
0 * <1 + RND (1) * 3)) 

432 K(E) = K(E) + Z 

433 IF Z ( =0 THEN 435 

434 PRINT : PRINT "SEUS 
MERCADOS REND 

ERAM ";Z;" FLORINS" 

435 IF D(E) = 0 THEN 443 

436 TX = R(E) / (D(E) * 5 
000) 

437 IF TX > 1 THEN TX = 

1 

438 Z = INT (D(E) * TX » 
S(E) / (3 » 

SOR (HE))) 


439 IF Z > = D(E> « 200 
0 THEN Z = INT ((D(E) » 1 
000 * (1 + RND (1) * 2)) 

440 R(E) = R(E) - TX * D( 
E) * 5000 

441 K(E) = K(E) + Z 

442 PRINT : PRINT "SEUS 
MOINHOS RENDE 

RAM ";Z;" FLORINS" 

443 Z = P(E) * 3 

444 PRINT : PRINT "VOCE 
PAGOU A SEUS 

SOLDADOS ";Z;" FLORINS" 

445 K(E) = K(E) - Z 

446 IF (L(E) / 1000) > P 
(E) THEN 712 

447 IF (L(E) / 500) < P( 
E) THEN 452 

448 FOR A = 1 TO F 

449 IF A = E THEN 451 

450 IF P(A) > (P(E) « 2. 
4) THEN 712 

451 NEXT 

452 PRINT : INVERSE : PR 
INT "DIGITE < 

0> P/ CONTINUAR"-: NORMAL 

453 GET Fi 

454 IF F! = "0" THEN 456 

455 GOTO 453 

456 RETURN 

457 HOME :L2 = L(E) / 10 
00 

458 X = 40 - INT (L2 / 1 
.5 + 1) 

459 Y = 5 + INT (L2 / 1. 

5 + 1) 

460 IF X ( 0 THEN X = 0 

461 IF Y ) 35 THEN Y = 3 
5 

462 FOR Z = X TO 39 

463 COLOR = RND (1) * 

7 

464 SOUND RND (2) * 100 
,4 

465 VLIN 5,Y AT Z 

466 SOUND X,4 

467 NEXT 

468 PRINT : INVERSE : PR 
INT TAB( 17) 

TI(E);5 NORMAL 

469 PRINT TA8( 30)L(E); 

" H" 





470 IF (P(E) - 5) < (L(E 
) / Í000) THEN 482 

471 XX = 2:YY = 10 

472 HTAB XX - Ü VTAB YY 

- 4: PRINT " 
rhri rhri" 

473 HTAB XX - 1: VTAB YY 

- 3: PRINT " 
rjrararark" 

474 HTAB XX: VTAB YY - 2 
: PRINT "rcrrrb" 

475 HTAB XX: VTAB YY - í 
: PRINT "rcrrrb" 

476 HTAB XX: VTAB YY: PR 
INT "rjr'rk" 

477 IF (P(E) / 2) < (L(E 
) / 1000) THEN 485 

478 HTAB XX - i: VTAB YY 

- 6: PRINT " 
rhrirhrYrirhri" 

479 HTAB XX - i: VTAB YY 

- 5: PRINT " 
rjrarrrarrrark" 

480 HTAB XX - Ü VTAB YY 

- 4: PRINT " 
rcrrrrrrrb" 

481 HTAB XX - i: VTAB YY 

- 3: PRINT " 
rcrrrrrrrb" 

482 HTAB XX: VTAB YY - 2 
: PRINT "rcrrrrrr 

rb" 

483 HTAB XX: VTAB YY - 1 
: PRINT "rcrrrrrr 

rb" 

484 HTAB XX: VTAB YY: PR 
INT "rjrWrk" 

485 Z = C(E):XX = 26:YY = 
20 

486 IF Z = 0 THEN 502 

487 IF Z > 7 THEN Z = 7 

488 IF Z = 1 THEN 501 

489 IF Z = 2 THEN 500 

490 IF Z = 3 THEN 499 

491 IF Z = 4 THEN 498 

492 IF Z = 5 THEN 497 

493 IF Z = 6 THEN 496 

494 IF Z = 7 THEN 495 

495 HTAB XX: VTAB YY - 6 
: PRINT " rr 

rr " 


496 HTAB XX: VTAB YY - 5 
: PRINT "rlrrrarl 

rrr«" 

497 HTAB XX: VTAB YY - 4 
: PRINT "rZr.rjrk 

r.rZ" 

498 HTAB XX: VTAB YY - 3 
: PRINT "rôrPrPrP 

rPrS" 

499 HTAB XX: VTAB YY - 2 
: PRINT "rOrPrlr* 

rPrS" 

500 HTAB XX: VTAB YY - 1 
: PRINT "rOrPrZrZ 

rPrS" 

501 HTAB XX: VTAB YY: PR 
INT "rjrYrVrYrk" 

502 Z = B(E):XX = 20:YY = 
20 

503 IF Z = 0 THEN 518 

504 IF Z = 1 THEN 517 

505 IF Z = 2 THEN 516 

506 IF Z = 3 THEN 515 

507 IF Z = 4 THEN 514 

508 IF Z = 25 THEN 513 

509 IF Z = 6 THEN 512 

510 IF Z = 7 THEN Z = 7 

511 HTAB XX: VTAB YY - 6 
: PRINT "r\rl r\ 

rl" 

512 HTAB XX: VTAB YY - 5 
: PRINT "rcrb rc 

rb" 

513 HTAB XX: VTAB YY - 4 
: PRINT "rcrrrrrr 

rb" 

514 HTAB XX: VTAB YY - 3 
: PRINT "rcrrrrrr 

rb" 

515 HTAB XX: VTAB YY - 2 
: PRINT "rZrhrari 

rZ" 

516 HTAB XX: VTAB YY - 1 
: PRINT "rZrcrrrb 

rZ" 

517 HTAB XX: VTAB YY: PR 
INT "rjr'rVrk": GOTO 519 

518 HTAB XX: VTAB YY: PR 
INT "rT AAA rü" 

519 GOSUB 545 

520 HTAB XX: VTAB YY: PR 
INT " rv rv" 


521 HTAB XX: VTAB YY - 1 
: PRINT " ryrlr 

U 

522 HTAB XX: VTAB YY - 2 
: PRINT "r£rz" 

523 Z = A(E):XX = 8:YY = 
20 

524 IF Z = 0 THEN 530 

525 HTAB XX: VTAB YY - 3 
: PRINT "rTrTrTrT 

rT" 

526 HTAB XX: VTAB YY - 2 
: PRINT "rZ 

rZ" 

527 HTAB XX: VTAB YY - 1 
: PRINT "rZrhrYri 

rZ" 

528 HTAB XX: VTAB YY: PR 
INT "rjrVYrVk" 

529 HTAB XX + 2: VTAB YY 

- 2: PRINT Z 

530 Z = D<E):XX = 14:YY = 
20 

531 IF Z = 0 THEN 541 

532 HTAB XX: VTAB YY - 5 

: PRINT "rlrVrTm 

// 

533 HTAB XX: VTAB YY - 4 

: PRINT "rZrWrUrZ 

// 

534 HTAB XX: VTAB YY - 3 

: PRINT "rZ rZ 

// 

535 HTAB XX: VTAB YY - 2 

: PRINT "rZrlrsrZ 

// 

536 HTAB XX: VTAB YY - 1 

: PRINT "rZrZrZrZ 

// 

537 HTAB XX: VTAB YY: PR 
INT "rjrVrk" 

538 HTAB XX + l: VTAB YY 

- 3: PRINT Z 

541 HTAB i: VTAB 3: INVE 
RSE : PRINT " 

ANO "*Y(5)*: NORMAL 

542 HTAB 3: VTAB 24: INV 
ERSE : PRINT 

"<APERTE SUAL8UER TECLA P 
/ CONTIN 
UAR>" ; : NORMAL 





543 GOSUB 742 

544 RETURN 

545 Z = INT ((A(E) + B(E 
) + C(E) + D( 

E) + K(E) / ÍOOO + L(E) / 
iOOO + 

R(E) / ÍOOOO + S(E) / 100 
0 ) / 2 ) 

546 IF Z < 10 THEN Z = 1 
0 

547 IF Z > 35 THEN Z = 3 
5 

548 XX = 35:YY = INT ((5 
4 - Z) / 2): RETURN 

54? HOME 

551 PRINT : INVERSE : PR 
INT AI(T(E) + 
V(E));Nl(E)?: NORMAL 

552 PRINT : PRINT : INVE 
RSE : PRINT " 

COMPRAS PELO ESTADO"?: NO 
RMAL : PRINT 

553 PRINT : PRINT "i.MER 
CADO (1000 FL 

ORINS) 

554 PRINT "2.MOINHO (2 
000 FLORINS) 

555 PRINT "3.PALACI0 (P 
ARTE:3000 FLO 

RINS) 

556 PRINT "4.CATEDRAL 
(PAR TE: 5000 F 
LORINS)" 

557 PRINT "5.E8UIPAR UM 
PELOTÃO DE SE 

RVOS COMO SOLDADOS (500 F 
LORINS)" 

558 PRINT : INVERSE : PR 
INT "(VOCE TE 

M "; INT (K(E));" FLORINS 
>"?: NORMAL 

55? IF K(E) < - 30000 T 
HEN 6?4 

560 PRINT : PRINT : PRIN 
T "(DIGITE: ( 

6) COMPARAR / (7) MAPEAR 

)" 

561 PRINT : INVERSE : PR 
INT "< QUAL A 

SUA ESCOLHA ? >"?: NORMA 
L : PRINT : PRINT : INVERS 
E : PRINT "(DIGITE (0) 

P/ CONTINUAR)"?: NORMAL 


562 GOSUB 742 

563 IF Zl < > "0" AND Z 
l < > "1" AND Zi < > "2" 

AND Zl < > "3" AND Zl < 

> *4" AND Zi ( > "5" AND 
Zl < > "6" AND Zl < > " 
7' THEN 562 

564 I = MAL (Zl) 

565 IF I ) =1 THEN 568 

566 HOME 

567 RETURN 

568 IF I = 1 THEN 584 

56? IF I = 2 THEN 578 

570 IF I = 3 THEN 5?i 

571 IF I = 4 THEN 5?8 

572 IF I = 5 THEN 605 

573 IF I = 6 THEN 576 

574 GOSUB 457 

575 GOTO 54? 

576 GOSUB 155 

577 GOTO 54? 

578 PRINT : PRINT "8UANT 
OS MOINHOS IR 

A COMPRAR *: INPUT I 
57? D(E) = D(E) + I 

580 K(E) = K(E) - I » 200 
0 

581 IF K(E) < = - 3000 
0 THEN 6?4 

582 U(E) = U(E) + I * .25 

583 GOTO 54? 

584 PRINT : PRINT "8UANT 
OS MERCADOS I 

RA COMPRAR ": INPUT I 

585 A(E) = A(E) + I 

586 IF K(E> < = - 3000 
0 THEN 6?4 

587 M(E) = M(E) + 2 

588 K(E) = K(E) - I * 100 
0 

58? U(E) = U(E) + I * .1 
5?0 GOTO 54? 

5?i PRINT : PRINT "8UANT 
OS PALACIOS I 
RA COMPRAR ": INPUT I 
5?2 B(E) = B(E) + I 
5?3 K(E) = K(E) - I * 300 
0 

5?4 IF K(E) ( = - 3000 
0 THEN 6?4 

5?5 N(E) = INT (N(E) + 

RND (1) « I * 

2 ) 


5?6 U(E) = U(E) + I « .5 
5?7 GOTO 54? 

5?8 PRINT : PRINT "8UANT 
AS CATEDRAIS 
IRA COMPRAR ": INPUT I 
5?? K(E) = K(E) - I * 500 
0 

600 IF K(E) < = - 3000 
0 THEN £?4 

601 8(E) = INT (8(E) + 
RND (1) * 6 * 

I) 

602 C(E) = C(E) + I 

603 U(E) = U(E) + I 

604 GOTO 54? 

605 P(E) = P(E) + 20 

606 S(E) = S(E) - 20 

607 K(E) = K(E) - 500 

608 GOTO 54? 

60? HOME 

610 PRINT : PRINT " 

* CONVENC 

OES *" 

611 PRINT : PRINT "NB... 

.NOBRES 

// 

612 PRINT " SOL.S 

OLDADOS" 

613 PRINT " CL.C 

LERO" 

614 PRINT " MER.M 

ERCADORES" 

615 PRINT " SER.S 

ERVOS" 

616 PRINT " IH1...D 

INHEIRO" 

617 PRINT : PRINT "(DIGI 
TE (0) P/ MOL 

TAR)" 

618 GOSUB 742 

61? IF Zl = "0" THEN 155 

620 GOTO 618 

621 Z = 0 

622 A = A(E) 

623 GOSUB 661 

624 A = B(E) 

625 GOSUB 661 

626 A = C(E) 

627 GOSUB 661 

628 A = D(E) 

62? GOSUB 661 

630 A = K(E) / 5000 

631 GOSUB 661 










632 A = (L(E) - 5000) / 4 
000 

633 GOSUB 66i 

634 A = H<E) / 50 

635 GOSUB 66i 

636 A = N(E) / 5 

637 GOSUB 661 

638 A = P(E) / 50 
63? GOSUB 661 

640 A = 8(E) / 10 

641 GOSUB 661 

642 A = S(E) / 2000 

643 GOSUB 661 

644 A = U(E) / 5 

645 GOSUB 661 

646 A = INT (Z / U(5) - 
J(E) + 1) 

647 IF A > 8 THEN A = 8 

648 IF (Y(5) + 2) < >0 
(E) THEN 651 

649 T(E) = T1E) + 1 

650 GOTO 653 

651 IF T(E) > = A GOTO 
660 

652 T(E) = A 

653 IF T(E) = 8 THEN 664 

654 HOHE 

655 PRINT : PRINT " 

# CONGRATUL 

ACOES *" 

656 PRINT : INVERSE : PR 
INT Ni(E) ; : NORMAL 

657 PRINT : PRINT "VOCE 
AGORA E ";AÍ( 

T(E) + U(E)) 

658 NS1E) = KKE) + * DE 
" + TS(E) 

65? FOR X = 1 TO 100: SO 
UNO RND (1) * X,10: NEXT 

660 RETURN 

661 IF A > 10 THEN A = 1 
0 

662 Z = Z + A 

663 RETURN 

664 HOHE 

665 FOR X = 1 TO 50: SOU 
ND RND (1) * 

X * 2,5:F1 = " GAHE OVER 
": SPEED= 255: PRINT FI-FÍ 
•Fí: NEXT 

666 PRINT : PRINT AI(T(E 
) + V(E));NS( 

E) 


667 PRINT : PRINT "rArBr 


INT " FA 

CrDrErF VENCEU rFrErOrC 


LIU 

rBrA" 


696 IF K(E) < =1-500 

668 FOR X = 1 TO 100: SO 


00 * T1E) / 3 

UNO RND <i) * X * 2.5,10: 


) THEN 774 

NEXT 


697 PRINT : PRINT "OS BA 

669 GOSUB 457 


NCOS TOHARAH 

670 GOSUB 155 


SUAS POSSES" 

671 GOTO 766 


698 FOR X = 10 TO 200: S 

672 PEST = INT ( RND (2) 


OUND 1,X / 10 

* 100) 


: NEXT 

673 IF PEST = INT (( RN 


700 HOHE 

D (1) * 1000) 


701 A(E) = INT (A1E) « 1 

/ 10) THEN 676 


INT ( RND (1 

675 RETURN 


) * 10) / 10)) 

676 HOHE 


702 B(E) = INT <B(E) * ( 

677 PP = INT ( RND (1) « 


INT ( RND (1 

70) 


) » 10) / 10)) 

678 NN = INT (N(E) * PP 


703 CIE) = INT (CIE) * ( 

/ 100) + 1 


INT 1 RND (1 

67? N(E) = N(E) - NN 


) * 10) / 10)) 

680 CC = INT (81E) * PP 


704 D(E) = INT (D1E) * ( 

/ 100) + 2 


INT ( RND (1 

681 81E) = 8(E) - CC 


) * 10) / 10)) 

682 HH = INT (H(E) * PP 


705 LIE) = INT (LIE) * ( 

/ iOO) + 2 


INT ( RND (1 

683 H(E) = H(E) - HH 


) * 10) / 10)) 

684 SS = INT (S(E) * PP 


706 U(E) = i 

/ 100) + 2 


707 K(E) = 100 

685 S(E> = S(E) - SS 


708 H1E) = INT (H(E) * 

686 PRINT : PRINT "rr+rr 


INT 1 RND (1) 

+ NOTICIAS CATA 


» 7) / 10) 

STROFICAS +rr+rr" 


70? R(E) = R1E) - 5000 

687 PRINT : PRINT "A PES 


710 IF LIE) < 5000 THEN 

TE NEGRA VARR 


LIE) = 5000 

EU SUA CIDADE VITIHANDO: 


711 RETURN 

// 


712 Z = 5 

688 PRINT NN;" NOBR 


713 FOR A = 1 TO F 

ES +" 


714 IF A = 6 THEN 718 

68? PRINT CC;" BISP 


715 IF PIA) < PIE) THEN 

OS E PADRES + 


718 

// 


716 IF PIA) < (1.2 * <L( 

690 PRINT HH;" HERC 


A) / 1000)) THEN 718 

ADORES +" 


717 IF PIA) > P(Z) THEN 

691 PRINT SS;" SERV 


Z = A 

OS +" 


718 NEXT 

692 FOR X = 1 TO 100: SO 


719 IF Z = 5 THEN TÍ15) 

UND RND (1) * 250,X: NEXT 


= "BARAO " 

720 Ni(5) = "HALONE DE VI 

693 RETURN 


NCENZA " 

694 HOHE 


721 Al = INT ( RND (1) * 

695 PRINT : INVERSE : PR 

INT AS(T(E) + 


9000 + 1000) 

V(E));NI(E);: NORHAL : PR 


722 GOTO 724 





723 Ai = P(Z) * ÍOOO - L( 
Z) / 3 

724 IF Ai > (L(E) - 5000 
) THEN Ai = ( 

L(E) - 5000) / 2 

725 PRINT : INVERSE : PR 
INT "(DIGITE 

(0) P/ CONTINUAR)";: NORH 
AL 

726 GOSUB 742 

727 IF F = i THEN 73i 

728 HOME 

729 PRINT : PRINT Ai(T(Z 
) + V(Z));NI( 

Z);" INVADIU E ANEXOU ";A 

i;" HECT 

ARES DE TERRAS" 

730 GOTO 733 

731 HOME 

732 PRINT : PRINT AÍ(Z); 
NI(Z);"INVADI 

U E ANEXOU ";Aí;" HECT,DE 
TERRAS" 

733 L(Z) = L(Z) + Ai 

734 L(E) = L(E) - Ai 

735 Z = INT ( RND (i) * 
40) 

736 IF Z ) (P(E) - i5) T 
HEN Z = P(E) - i5 

737 PRINT : PRINT AÍ(T(E 
) + V(E));" " 

;NI(E);" PERDEU ";Z;" SOL 
DADOS EM 
BATALHA" 

738 P(E) = P(E) - Z 

739 PRINT : INVERSE : PR 
INT " APERTE 

(RETURN) NORMAL 

740 INPUT Zi 

741 RETURN 

742 GET ZS: FOR X = í TO 
20: SOUND i4 

,4: NEXT 

743 IF ZI = "" THEN 742 

744 RETURN 

745 HOME 

746 PRINT : INVERSE : PR 
INT " 

INSTRUÇÕES 

n 

•: NORMAL 

747 PRINT : PRINT "VOCE 
E 0 GOVERNANT 


E DE UMA CIDADE-ESTADOITA 
LIANA DO 

SÉCULO XV. SE VOCE GOVER 
NAR BEM, 

IRA RECEBENDO TÍTULOS CA 
DA VEZ M 

AISALTOS. 0 PRIMEIRO JOGA 
DOR QUE 

SE TORNAR REI OU RAINHA S 

ERA VENC 

EDOR.": 

748 PRINT " EXPECTATIVAD 
E VIDA E BAIX 

A, PORTANTO VOCE PODE NAO 
VIVER 0 

BASTANTE PARA VENCER.": 
PRINT : INVERSE : PRINT "< 
APERTE <0> P/ CONTINUA 
R)";: NORMAL 

749 GOSUB 742 

750 IF ZI = "0" THEN 752 

751 GOTO 749 

752 HOME 

753 PRINT : PRINT " 0 

COMPUTADOR IR 

A DESENHAR UM MAPA DO SEU 
ESTADO. 

A AREA ENTRE OS MUROS AU 
HEN-TARA 

A MEDIDA QUE VOCE COMPRA 
R NOVAS 

TERRAS. 0 TAMANHO DA T 
ORRE NO 

CANTO SU -PERIOR ESQUERDO 
INDICAR 

A SE AS SUAS DE 

754 PRINT "FESAS SAO ADE 
QUADAS. SE ES 

TE DIMINUIR, EQUIPE-SE C 
OM MAIS 

SOLDADOS.": PRINT " SE 
0 CAVALO 

ESTIVER NUMA POSICAO ALT 
A TODA S 

UA TERRA ESTARA EM FRANCA 
PRODU - 

CAO. DO CONTTRARIO, VOCE 
PRECISA 

DE MAISSERVOS SUE IRAO "; 

755 PRINT "NASCER OU MIG 
RAR PARA 0 SE 

U ESTADO AO DISTRIBUIR MA 


IS GRAOS 

DO OUE A DEMANDA MÍNIMA 
.": PRINT : INVERSE : PRIN 
T "(APERTE (0> P/ CONT 
INUAR";: NORMAL 

756 GOSUB 742 

757 IF ZI = "0" THEN 759 

758 GOTO 756 

759 HOME 

760 PRINT : PRINT " SE 
VOCE DISTRIB 

UIR MENOS GRAOS QUE A DEM 
ANDA MIN 

IMA A POPULACAÔ IRA MORRE 
R DEFOME 

AO MESMO TEMPO OUE DIMIN 
UI A TAX 

A DE NATALIDADE." 

7ói PRINT : PRINT " AL 
TAS TAXAS E I 
MPOSTÔS ARRECADAM MAISDIN 
HEIRO MA 

S DIMINUEM 0 CRESCIMENTO 
ECO-NOMI 

CO.": PRINT : PRINT : PRI 
NT " 

rt * * BOM GOVERNO * 

* rw " 

762 PRINT : INVERSE : PR 
INT "(DIGITE 

(0) P/ CONTINUAR)";: NORM 
AL 

763 GOSUB 742 

764 IF ZI = "0" THEN Í2i 

765 GOTO 763 

766 HOME 

767 FOR Z = i TO 20: SOU 
ND RND (i) * 

Z,5 

768 PRINT "GAME OVER ";" 
GAME OVER "• 

" GAME OVER" 

769 NEXT 

770 PRINT : PRINT : PRIN 
T "(DIGITE <0 

> P/ INICIAR OUTRO JOGO)" 

77í GOSUB 742 

772 IF ZI = "0" THEN RU 
N 

773 IF ZI < > "0" THEN 

771 





774 PRINT : PRINT "05 BA 
NCOS CONFISCA 

RAM SUAS POSSES" 

775 IF K(E) { = - 2000 
0 AND K(E) > 

- 35000 THEN 778 

776 IF K(E) < = - 3500 
0 AND K(E) ) 

- 50000 THEN 780 

777 IF K(E) < = - 5000 
0 THEN 783 

778 WtE) = N(E) + í 

779 GOTO 786 

780 U(E) = HÍE) + INT ( 
RND (í) * 4) 

78Í IF M(E) = 0 THEN U(E 
) = i 

782 GOTO 786 

783 U(E) = U(E) + INT ( 
RND (í) * 6) 

784 IF U(E> < 2 THEN U(E 
) = 3 

785 GOTO 786 

786 Gí = "0" 

787 IF V(E) = 8 THEN Gí 
. 

788 PRINT : INVERSE : PR 
INT A4(T(E) + 
V(E));NS(E);S NORMAL : PR 
INT 

789 PRINT "FOI A JULGAME 
NTO, ACUSAD"; 

Gí:" DE FRAUDE" 

790 PRINT : PRINT "DESTA 
FORMA FOI CO 

NDENAD";GÍ;" A ";U(E);" 

ANOS DE 

PRISÃO" 

791 FOR T = 1 TO 500: SO 
UND .5 * T,5: 

NEXT 

792 IF F = í THEN 795 

793 IF F > i THEN Z(E) = 
i 

794 GOTO 796 

795 Y(5) = Y(5) + M(E) 

796 A(E) = 0 

797 B(E) = 0 

798 CíE) = 0 


0 

4000 

1 

0 

INT (M(E) / 4 


799 D(E) 

800 L(E) 

801 U(E) 

802 X(E) 

803 M(E) 

) 

804 R(E) = 5000 

805 GOTO 711 

806 HOME : PRINT : PRINT 
: PRINT "CAS 

0 VOCE TENHA APERTADO < 0 
> OU < 

5 >": PRINT : PRINT 

807 PRINT : PRINT : INVE 
RSE : PRINT " 

ESTE JOGO NAO E PARA VOCE 
NORMAL : PRINT : PRINT 
: PRINT 

808 PRINT : INVERSE : PR 
INT "< DIGITE 

QUALQUER TECLA NORM 
AL : PRINT : PRINT 

809 GET F4 

810 GOTO 121 
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TENTE ESTA 


c 

J 

HOME 



6 Ri = Í00 



ÍO 

PRINT A 

'NUMEROS ALEATÓRIOS" 


15 

PRINT 



16 

FOR G = 

1 T0 11 


17 

IF G < 

10 THEN PRINT " "• 


18 

PRINT G 

i." 

r i 


20 

FOR I = 

1 TO 20 


30 

FOR J = 

1 T0 4 + N0T (I = 

1 AND J 

= 

1) 



40 

R = INT 

(100 * RND (D) 


45 

IF R = 

RI THEN 40 


46 

Ri = R 



47 

IF R < 

10 THEN PRINT " "• 


50 

PRINT R 

m // // m 

i ! 


60 

NEXT J 



70 

PRINT 



80 

NEXT I 
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PRINT 
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NEXT G 
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"Sem FOR, IF, 

Sem ( )" (ed. 20); 0 AMOR 
DO SR. NABOR (ed. 11) 


Renato da Silva Oliveira 


Alguns Quebra-Cabeças propostos estiveram, até o mo¬ 
mento, sem respostas pelo não recebimento de resoluções 
enviadas pelos leitores. 

Ficamos durante algumas edições aguardando as soluções 
numa grande expectativa. Chegamos até ao ponto de nos 
questionarmos se o nível das resoluções propostas não es¬ 
tava por demais elevado. Porém, na última edição (Sem FOR, 
IF, ()) ficamos bastante felizes pela quantidade de respos¬ 
tas enviadas. 

A que apresentou melhor desenvolvimento e consistên¬ 
cia lógica foi a de Albert Chen. Decidimos publicar, ao mes¬ 
mo tempo, duas respostas: uma genérica (listagem 1) e a 
outra mais específica (listagem 2). 

Estamos fornecendo também a resolução do Quebra- 
Cabeça da edição 11 (O Amor do Sr. Nabor), já que não re¬ 
cebemos nenhuma resolução. 

Continuamos aguardando respostas aos Quebra-Cabeças 
que não tiveram suas soluções publicadas. 

"Devemos, inicialmente, entender como funciona, ou co¬ 
mo simular, um laço de tipo FOR...NEXT. Isto ficará a cargo 
de seu manual BASIC. 

Mas devemos ter em mente que há um apontador (A); o 
passo (ST) a ser seguido e, naturalmente, valores inicial (VI) 
e final (VF) do apontador. 

Se não podemos usar o FOR (e consequentemente o 
NEXT) devemos ir testando o apontador dentro do "LOOP" 
até que ele acuse o valor final. Mas como fazê-lo sem usar 
instruções do tipo IF <condição> THEN <comando ou 
elementos de lógica Booleana com parênteses? 

Lançaremos mão de um GOTO X, onde X é uma variável: 
uma interessante opção que o sistema operacional do nos¬ 
so micro oferece. Não tenho certeza, mas um Apple ou um 
TRS-80 não seria capaz de executar tal façanha. 


Só falta agora achar a equação para um programa tipo: 



A linha 50 deve desviar para 20 se 0<A<704 ou para 
60 se A = 0. Tudo depende então da equação: 

X = 60 - 40 *INT( A/704 + 0.999999) 

Mas como? Simples: ela se vale do fato que quando A = 0, 
X assumirá o valor 60 e para os valores 0 <A < 704 a parte 
INT (A/704 + 0.999999) será igual a 1, o que implica X 
= 20 . 

Só isso? Mas é claro que não. Sabemos que A= 0 é a nos¬ 
sa condição. Será que não há um modo mais ecônomico de 
se resolver o problema? Sim. Adote: X= 60 - 40 * SGNA 
e pronto. Sem sombra de dúvidas, um jeito muito mais 
elegante. 

Das várias soluções que possam existir, a idéia é sempre 
a mesma: usar um GOTO<X (A)> onde X assume um cer¬ 
to valor se A = 0 e um outro valor se A^0. Simples, muito 
simples". 
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MENOR SOLUÇÃO: 



GENERALIZAÇÃO 


Rótulo 

Instrução 

Ai 

FOR N= (VI) TO (VF) STEP (ST) 

a 2 

• 

• 

• 

• 

• 

(meio do "LOOP") 

• 

• 

An 

• 

NEXT N 

A n + 2 

• 

• 

• 

Al 

LET N = (VI) 

a 2 

• 

• 

(meio do "LOOP") 

An 

LET N = N - (ST) 

An+1 

GOTO A n+2 — (A n+ 2- A 2 )* 

A n + 2 

ABS SGN(N- (VF)) ■ 


O AMOR DO SR. 
NABOR 

Renato da Silva Oliveira 


Mais de dez edições foram publicadas desde que ele foi 
proposto e, finalmente, recebemos uma resposta. A seguir, 
nós transcrevemos do modo como a recebemos. Seu autor 
é um antigo conhecido dos leitores da Microhobby: Tsche- 
bo Kubisbo. Ele é um amigo pessoal do Nabor e mora tam¬ 
bém em São Tomé. 

"As informações fundamentais do texto estão relaciona¬ 
das a seguir, na ordem em que aparecem: 

1 - RAMARUJAN BEBIA SUCO DE MORANGOS PUROS. 

2 - NABOR TINHA APENAS QUATRO MORANGOS EM 
SEU PRATO. 

3 - A CHINESA CONVERSAVA COM A MATEMÁTICA. 

4 - O CAVALHEIRO QUE BEBIA SUCOS DE MORANGOS 


COM LEITE TINHA EXATAMENTE TRÊS VEZES MAIS MO¬ 
RANGOS EM SEU PRATO QUE A SECRETÁRIA. 

5 - O CAVALHEIRO DE MESMA NACIONALIDADE QUE 
A SECRETÁRIA NÃO BEBIA NADA. 

6 - A MOCA INDÚ E A PROGRAMADORA FORAM AO 
TOILETTE. 

Para resolver o Quebra-Cabeça criou-se, na memória do 
micro, uma matriz como a representada a seguir juntamen- 
te com algumas convenções: 


CONVENÇÕES 


^nacionalidade brasileira = BRAS 
(NAC) 

indú = INDU 
chinesa = CHIN 


FAÇA DE SEU MICRO “SINCLAIR” 
UM PROFISSIONAL 




□ Vida útil maior que 2 milhões de operações 

□ Um TECLADO profissional com switches individuais e 
acondicionamento mecânico 

□ Gabinete em fiber-glass que acondiciona o micro 

SPEED ELETRO ELETRÔNICA LTDA. 

Rua I (i) N.° 395 - Bernardo Monteiro - Contagem - MG 
Tel: Escrit. (031) 463-3l'71 Fábrica: (031) 351-1887 


REVENDEDORES AUTORIZADOS: (011) 522-4637; (021) 270-9197; 
(081) 326-8814; (0514) 491-323; (084) 231-1055; (091) 223-6319 
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*bebida nenhuma = NADA 
(BEB) 

suco puro = MOPU 
suco com leite = MOLE 


*número de 
morangos 
(MOR) 


indeterminado = 0 
determinado = N.° 


MATRIZ DE INFORMAÇÕES(I) 


1 

NAC 

BEB 

MOR 

SEC 

PRO 

MAT 

NAB 

RAM 

TOL 





O programa é, simplesmente, a transcrição para o BASIC 
das informações fundamentais. A matriz I é usada apenas 
para guardar os dados deduzidos. A sequência de resolu¬ 
ção para um ser humano está esquematizada a seguir: 

1 - Ramarujan bebia suco puro. 

2 - Nabor tinha 4 morangos no prato. 

3 - A chinesa conversava com a matemática, portanto, A 
CHINESA É SECRETÁRIA OU PROGRAMADORA. 

4 - Há exatamente três vezes mais morangos no prato do 
cavalheiío X que no prato da secretária, portanto, O CAVA¬ 
LHEIRO X NÃO É O NABOR, pois quatro não é múltiplo de 
três. 

5 - O cavalheiro X bebia suco de morangos com leite, por¬ 
tanto, X NÃO É RAMARUJAN, pois este bebia suco puro. 
Conclui-^e que X SÓ PODE SER TOLENM 


6 - O cavalheiro de mesma nacionalidade que a secretá¬ 
ria não bebia nada, portanto, A SECRETÁRIA É BRASILEI¬ 
RA. O cavalheiro só pode ser o Nabor, uma vez que Rama¬ 
rujan e Tolen estavam bebendo. 


7 - A chinesa não é secretária, portanto, A CHINESA É 
PROGRAMADORA(ver item 3). 

8 - A INDÚ É A MATEMÁTICA(ver item 3 e 7). 

9 - A indú e a programadora foram ao toilette, portanto, 
O AMOR DO SR. NABOR É A SECRETÁRIA BRASILEIRA. 

O programa está listado a seguir: 


10 

DIM 

I í 6 33 

20 

LET 

SEC = 1 

30 

LET 

PRO =2 

40 

LET 

MAT =3 

50 

LET 

NAB =4- 

50 

LET 

RAM =5 

70 

LET 

TOL =6 

30 

LET 

NA 0 = 1 

90 

LET 

BEB =2 

100 

LET 

MOR =3 

110 

LET 

NADA=1 

120 

LET 

MOPU =2 

130 

LET 

MOLE=3 

140 

LET 

BRAS = 1 

150 

LET 

INDU = 20 

150 

LET 

OHIN=300 

161 

LET 

I (NAB , NAC3 =BRAS 

152 

LET 

I (RAM ,NAC3=INDU 

153 

LET 

I(TOL. NAC 3 =CHIN 

170 

LET 

I (RAM , BEB3 =M0PU 

130 

LET 

I (NAB . MOR3 =4- 

130 

LET 

I (MAT , NAC3 =BRAS + INDU 

200 

LET 

I (TOL.BEB3 =M0LE 

210 

LET 

I (NAB : BEB3 =NADA 

220 

LET 

I £SEC , NAC 3 =I(NAB,NAC3 _ 

230 

LET 

I £ MAT , NAC3 =I(MAT,NAU< -1 

(SEC 

, NAC3 .... ... 

240 

' LET 

I (P R 0 , N A C 3 = B P A S +1N D U + U n 

IN 



250 

LET 

I £PR0,NAC 3 =I £PR0,NAC 3 -1 

í MPT 

,NflC)-I(SECNAC3 

250 

PRINT "SECRETARIA= >“ 

270 

LET 

S = I (SEC,NAC 3 

230 

GÜS 

UB 1000 

230 

PR INT 85 PRÜGRPMPDÜHH = > ‘ 

300 

LET 

S = I (PRO.. NAC 3 

310 

GOSUB 1000 

320 

PR INT " MATEMATICA = > " .. 

330 

LET 

S=I(MAT,NAC 3 

340 

GOSUB 10.00 

350 

LET 

P. = B R P 5 4- 1N D ü + C HIN 

350 

LET 

P =P-INDU-1íPRO.NPC) 

370 

LET 

S=P 

330 

PRINT O AMOR DO SR. NHBUK 

E s 3 

• '* 


390 

GÜS 

UB 1000 

400 

ST GP 

1000 

RP; !i 

IF 

5 = 1 THEN PR INT "BRASaí-Ea 

1010 

IF 

5=20 THEN PRINT "INDU" 

1020 

P‘ ! 

IF 

5=300 THEN PRINT "CHINfcS 

1030 

RETURN 



■ 
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=_==_= Sempre o melhor 
*==:,!£ programa para você 



TELECOMUNICAÇÕES 

• Programas para Projeto 
Cirandão 

• Programas para Video¬ 
texto da Telesp 

• Placas RS-232 da 

Arias Microcomunicações 
para TRS-80 e Apple 

• Modens 


SOFTWARE 


O maior acervo de prog ramas 
do Brasil que você pode: 
testar, usar, administrar, 
programar, desenhar e jo¬ 
gar livremente. 


Disponíveis para as linhas: 
Apple, TRS-80 e Sinclair 


Av. Brigadeiro Faria Lima, 1390 

8 o And. Cj. 82 Tels.: (011) 813 6407 - 210 1251 

01452 - J. Paulistano - São Paulo - SP 


I HARDWARE 

i 

i 

i 

i 

i 

SUPRIMENTOS 

i 

i 

i 

i 

LIVROS 


! • CPLTs das linhas: 

i 

i 

i 

• Formulários contínuos 

i 

i 

• Microproces. Z80 e 6502 


i Apple, TRS-80 e Sinclair 

i 

i 

i 


i 

i 

i 

• Cursos de Basic 


i • Interfaces para: 

i 

i 

• Diskettes 

i 

i 

• Programação estruturada 


1 Disco, Impressoras, CP/M, 

i 

i 

i 

i 

i 

i 

i 

• Linguagens Basic, Cobol, 


1 ' 80 colunas e Expansão de 

i 

i 

• Etiquetas 

i 

i 

Pascal 


memória 

i 

i 

i 

i 

• Circuitos Eletrônicos 


( • Drives para vários modelos 

i 

i 

i 


i 

i 

i 

i 

• Jogos Inteligentes 


i • Monitores e impressoras 

i 

i 

i 

• Fitas para impressoras 

i 

i 

i 

i 

• Revistas 









































































Microprocessadores - 
Conceitos Básicos-Vol.I - 
ADAM OSBORNE 


Álvaro A.L.Domingues 


Saber programar em Linguagem de Máquina é o sonho de 
todo programador. 

Porém, esta tarefa muitas vezes parece difícil, uma vez que 
há inúmeros computadores no mercado, cada um com uma for¬ 
ma de mapeamento de memória, rotinas internas na ROM e até 
microprocessadores diferentes. 

Projetar computadores também é o sonho de todo engenhei¬ 
ro eletrônico que se interessa por informática. 

Este livro foi preparado objetivando colocar o leitor (mesmo 
com poucos conhecimentos de programação e lógica digital) nos 
fundamentos da estrutura interna dos microprocessadores. 

Quer o seu interesse esteja voltado ao hardware ou software, 
os conhecimentos mostrados no livro são de grande valia, visto 
que um estudo detalhado de como os microprocessadores fun¬ 
cionam é de fundamental importância, caso se deseje tirar o má¬ 
ximo proveito do computador disponível. 

O grande mérito do livro reside no fato de não fixar-se num 
único modelo de microprocessador, mas partir de realizações 
e conceitos básicos, de forma a introduzir o leitor na filosofia 
do uso dos microprocessadores. 

Partindo da aritmética binária, o autor pouco a pouco chega 
ao coração do microprocessador: a sua estrutura interna. 

O conhecimento adquirido permite chegar-se ao projeto de 
um computador através de definições de características, passan¬ 
do pela escolha do circuito integrado adequado e à definição 
da estrutura de memória, sinais de controle e até à elaboração 
de seu programa residente. 

Ele está escrito de duas formas: uma parte em negrito, onde 
estão os conceitos principais e outra em caracteres normais, per¬ 
mitindo ao leitor se aprofundar no tema, caso deseje. Além disso, 
na margem esquerda estão indicações que facilitam a localiza¬ 
ção de determinados pontos de interesse. 

Combinando estas características com uma linguagem clara 
e simples, uma boa quantidade de ilustrações que ajudam no 
entendimento das passagens mais difíceis, o livro torna-se ideal 
para consultas bem como para estudo. 



O livro está dividido em sete capítulos, abrangendo: Micro¬ 
processadores e Microcomputadores; Alguns conceitos funda¬ 
mentais; Como fazer um microprocessador, a memória e seu 
conteúdo; Unidade de Processamento; Lógica externa à UCP; 
Programação de microcomputadores; Conjunto de instruções. 

Fechando o livro existem três apêndices, um com as diversas 
tabelas de caracteres, outro com uma coleção de algoritmos úteis 
para programas em Linguagem de Máquina e um com uma pro¬ 
posta do IEEE para uma linguagem Assembly padrão. 
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Você Conhece os 
Computadores? 

Karen Billings e David Moursund/Editora Manole 

O objetivo explicito dos autores é auxiliar as pessoas a 
se esclarecerem mais sobre a computação. O livro, didáti¬ 
co, aplica-se muito à utilização como unidade de estudo adi¬ 
cional, em aulas sobre aplicação de computadores, nas di¬ 
versas áreas do conhecimento. 

Dividido em dez capítulos, "Você Conhece os Computa¬ 
dores" aborda entre outros assuntos, temas como "Por que 
os Computadores Existem; Entrada de dados e programa¬ 
ção; Máquinas inteligentes; entre outros, e propõe ao leitor 
uma alta avaliação, de modo a fornecer-lhe condições de per¬ 
ceber o nível de absorção das informações transmitidas. 

Dessa forma, os capítulos dão sugestões para leituras e 
pesquisas a respeito dos temas tratados e, no final do livro, 
testes de suficiência de aprendizado.A.L.A. 


BASIC TK - Vol.ll e 
(Programação e 
Avançado) 

Piazzi e Rossini / Editora Aleph/Moderna 

Os dois volumes que complementam o BASIC TK, lança¬ 
do no ano passado pela Editora Micromega, (voltados aos 
micros das linhas TK83/85) são apresentados agora pela Edi¬ 
tora Aleph. 

O objetivo dos autores, com estes lançamentos, é "pos¬ 
sibilitar ao aluno a elaboração de programas complexos, 
introduzindo-os nos métodos de programação e fornecer 
também, no último volume, informações complementares 
que possibilitem ao usuário um melhor aprimoramento das 
técnicas de programação BASIC".A.L.A. 


OUTROS 


LANÇAMENTOS 

# 


Jogos em Linguagem de Máquina- (Volume 3) 

COBOL com Estilo 


Selecionados por Pierluigi Piazzi 

Louis J. Chmura e Henry F. Ledgard 


Editora Aleph e Moderna 

Editora Campus 


Programa para Jovens Programadores - TK,82/83/85 

Fundamentos de Estruturas de Dados 


Linda Hurley 

Elis Horowitz e Sartaj Sahni 


Editora McGraw-Hill 

Editora Campus 


BASIC Rápido 

Super BASIC TK 


George e Thomas Gratzer 

Maldonado & Grossi 


Editora Campus 

Eidtora Aleph/Moderna 

■ 
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Análise do Programa, 

Linha por Linha 

AULA 

V 


Gustavo Egydio de Almeida 


Na aula anterior apresentamos 
um programa surpresa, que 
exibia uma determinada figura 
na tela do seu televisor. 

Na presente edição, além de 
mostrarmos com detalhes o 
funcionamento deste programa, 
apresentaremos novos 
Mnemónicos, ampliando ainda 
mais seu conhecimento no 
"set" de instruções do TK 
2000. 


$ 800 - É chamada a sub-rotina $ F832 contida na ROM 
do TK 2000. 

Esta sub-rotina realiza uma operação semelhante à ins¬ 
trução CLS (nos computadores da Sinclair) ou a instrução 
Home (nos computadores da linha Apple). Esta operação 
consiste em limpar a tela inteira de baixa resolução. 

$ 803 - A instrução LDA $ C054, realiza uma seleção nu¬ 
ma das páginas de vídeo que vão ser utilizadas no progra¬ 
ma. No caso, o endereço $ C054 seleciona a primeira pági¬ 
na do vídeo ($ 2000 a $ 3FFF), que vai ser utilizada para 
abrigar os gráficos produzidos durante a execução do 
programa. 


$ 806 - A instrução LDA $ C050 seleciona o modo de ví¬ 
deo colorido ou preto/branco. No caso, o endereço $ C050 
seleciona o modo colorido para o vídeo. 

$ 809, $ 80B - O endereço $30 recebe o valor # FF co¬ 
mo conteúdo. 

$ 80D, $ 80F, $811 - Os endereços $ 2C e $ 2D recebem 
como conteúdo o valor #22. 

$ 813 - O registro indexador y recebe como conteúdo o 
valor #05. 

$ 815 - O acumulador é carregado com o valor #05. 

$ 817 - É chamada a sub-rotina no endereço $ F819 da 
ROM que desenha na tela uma linha horizontal de blocos 
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em baixa resolução. Esta linha, para ser impressa na tela, 
necessita de duas coordenadas: a horizontal e a vertical. 

A coordenada vertical está contida no acumulador, ou seja, 
no endereço $ 816. 

A coordenada horizontal, da extremidade esquerda da li¬ 
nha, está contida no registro indexador y, ou seja, no ende¬ 
reço $ 814. 

A coordenada da mesma horizontal, só que da extremi¬ 
dade direita, está contida no endereço $ 2C. 

Vamos lembrar como é feita a definição na tela no modo 
baixa-resolução(fig.l). 


$ 821 - O registro indexador y é carregado com o valor 
#05. 

$ 823 - O acumulador é carregado com o valor #05. 

$ 825 - É chamada a sub-rotina no endereço $ F828 da 
ROM. 

Esta sub-rotina plota uma linha vertical com a coordena¬ 
da horizontal, contida no registrador y; a coordenada verti¬ 
cal do topo da linha, contida no acumulador; e a coordena¬ 
da de Baixo, contida no endereço $ 2D. 

Vamos ver como fica agora a tela (fig.4). 


0 

39 
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v 

v 


22 


39 


22 


39 


Fig.1 
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i 

í 1 


1 

1 

1 

1 

1 

• 

V 



39 


Fig.4 


Como vemos, a tela do TK 2000, no modo baixa- 
resolução, é dividida em 40 linhas e 40 colunas. 

Na primeira linha, então a ser impressa, vai ocorrer como 
se vê na (figura 2). 


22 


39 


828 - O indexador y é carregado com o valor #22. 
82D - O acumulador é carregado com o valor #05. 
82C - É chamada novamente a sub-rotina da ROM de en¬ 
dereço $ F828 que plotará a última linha vertical, finalizan¬ 
do, assim,na tela(figura5). 
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Fig.2 
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Fig.5 


$ 81A - O indexador é carregado com o valor #05. 

$ 81C - O acumulador é carregado com o valor #22. 

$ 81E - É chamada, mais uma vez, a sub-rotina de impres¬ 
são de uma linha horizontal de blocos, cujos valores são os 
seguintes: 

- Linha vertical -> valor #22 ($ 81D). 

- Linha Horizontal -+ coordenadas #05 (81B) e #22 
($ 80F). 

Vamos ver a tela como fica com essa linha e a anterior 
(figura 3). 


82F - Retorna ao BASIC. 

Instruções de Adição 

ADC - Adição de memória do acumulador com CARRY. 
Essa instrução usa oito formatos diferentes para se efetuar 
operações de adição. 



Fig.3 


TABELA 1 - ADC 

Código Usado 

Formato 

Bytes Usados 

69 

ADC # OPER 

2 

65 

ADC OPER 

2 

75 

ADC OPER,X 

2 

6D 

ADC OPER 

3 

7D 

ADC OPER,X 

3 

79 

ADC OPER,Y 

3 

61 

ADC (OPER,X) 

2 

71 

ADC (OPER),Y 

2 
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A instrução ADC tem por finalidade adicionar dados ou 
conteúdos de memória no acumulador. 

APC # OPER - Endereçamento imediato (Página Zero). 

Nesta versão é realizada uma adição do acumulador co- 
no dado em questão. 

Exemplo: LDA #05 
ADC #05 
RTS 

Primeiro o acumulador é carregado com o valor #05. De¬ 
pois é utilizada a instrução ADC que realiza a soma do Da¬ 
do indicado (#05), com o conteúdo do acumulador (que tam¬ 
bém é #05). 

O resultado da soma, ou seja, #0A, é automaticamente 
introduzido no acumulador. 

ADC OPER- Endereçamento Direto (Página Zero). 

É realizada uma adição do acumulador com o conteúdo 
do endereço indicado na instrução. 

Exemplo: LDA # 50 
LDX #10 
STX $30 
ADC $30 
RTS 

Neste exemplo é feita a adição do acumulador (# 50) com 
o conteúdo do endereço $30 (#10), ou seja, o acumulador 
se atualizará com o valor # 60. 

ADC OPER, X- Endereçamento indexado por X (Página 
Zero). 

Nesta instrução é adicionado o acumulador com o valor 
do conteúdo do endereço formado pelo Mnemónico mais 
o registro do indexador X. 

Exemplo: LDA # 50 
LD X #05 
LD Y #20 
STY $ 30 
ADC $ 2B, X 
RTS 

Neste exemplo o conteúdo do qndereço $ 30 (2b + 05, 
pois X = 05), é adicionado ao acumulador. Como ele tem 
como valor o número # 50 e o endereço $ 30 tem como 
conteúdo o valor #20, o resultado a ser atualizado no acu¬ 
mulador será (#50 + #20 = #70). 

ADC OPER - Endereçamento absoluto. 

Nesta instrução é realizada a adição do acumulador com 
o conteúdo do endereço em questão, que nesse caso abran¬ 
ge 2 Bytes. 

Exemplo: LDA #10 

STA $ 0800 
LDA #50 
ADC $ 0800 
RTS 

Neste exemplo é adicionado o valor do acumulador (# 50) 
ao conteúdo do endereço $ 0800 (#10), ou seja (#50 + 

# 10 = #60). 


ADC OPER, X - Endereçamento indexado por X (absoluto). 
Semelhante à instrução ADC OPER, X (Pág. Zero), com 
a diferença de neste último caso a operação ser feita 
utilizando-se endereços absolutos (2 Bytes). 


Exemplo: LDX #10 
LDA #20 
STA $ 0900 
LDA #30 
ADC $ 8FO, X 

Neste exemplo, o conteúdo do endereço formado ($ 8FO 
+ X -► $ 8FO + 10 = $900), é adicionado no acumulador 
(#30), ou seja, #30 + #20 = #50. 

ADC OPER, Y- Endereçamento indexado por y (absoluto). 

Idêntico ao apresentado por ADC OPER, X, com a única 
diferença de haver a troca dos registros indexadores X por Y. 

ADC (OPER, X)- Endereçamento indireto (indexado por X). 

Vamos a um exemplo: 

ADC (05, X). 

O valor de X deve ser adicionado ao operando. Supondo 
X = 14, temos '05' + '14' = '19'. 

Obtendo esse valor ($ 0019), tomamos seu sucessor ($ 
00 IA). Achando o conteúdo de cada um desses endereços 
(daí o nome endereçamento indireto). A partir deste novo 
endereço, obteremos um certo conteúdo que será finalmente 
somado ao valor do acumulador. 


MEMÓRIA 

CONTEÚDO 

$ 0000 

#30 

• 

• 

• 

• 

• 

• 

$ 0019 

#45 $ 1045 

$ 001A 

#10 endereço 

• 

• 

• 

• 

• 

• Formado 

$ 1045 

#50 


Portanto, o conteúdo do endereço $ 1045 (# 50) será so¬ 
mado com o valor do acumulador (#10). 

Exemplo: LD X #14 
LDA #10 
LDY #45 
STY $19 
LDY #10 
STY $ IA 
LDY #50 
STY $ 1045 
ADC (05, X). 

O resultado a ser atualizado no acumulador, será (50 + 
10 - #60). 
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ADC (OPER), Y - Endereçamento indireto (indexado por Y). 

Vamos tomar como exemplo a instrução ADC (01), Y. 

Tomamos inicialmente o valor contido entre parênteses ($ 
01) e seu consecutivo ($ 02), obtendo assim um byte para 
cada endereço. 

Supondo que o conteúdo de $ 01 e $ 02 são '32' e '11', 
eles representam, respectivamente, o byte menos e mais sig¬ 
nificativo do endereço formado, que é $ 1132. 

Somando-se o byte menos significativo desse endereço, 
formado com o valor do registro Y, obteremos o endereço 
final, ($1132 + '00071 = $ 1139). Portanto, estará no acu¬ 
mulador o valor contado no endereço $ 1139. 

SBC - Subtrai com CARRY a memória do acumulador. 

Explicaremos agora as instruções que efetuam subtrações 
que envolvem o acumulador com dados ou conteúdos de 
memória. 

Essas instruções se dividem em oito formatações que rea¬ 
lizam exatamente a mesma função, só que de modo inverso 
das instruções ADC. 


TABELA II 

Código Usado 

Formato 

Bytes Usados 

E9 

SBC # OPER 

2 

ES 

SBC OPER 

2 

FS 

SBC OPER, X 

2 

ED 

SBC OPER 

3 

FD 

SBC OPER, X 

3 

F9 

SBC OPER, Y 

3 

El 

SBC (OPER,X) 

2 

F1 

SBC (OPER,Y) 

2 


SEC - Faz o carry igual a um. 


Código Usado 

Formato 

Bytes Usados 

38 

SEC 

1 


Essa instrução tem como finalidade setar o Flag de Carry 
(CM 1). 

Sua utilização num programa em Assembler é feita de mo¬ 
do a permitir que sejam realizadas operações de subtração 
de dados e endereços com o acumulador, através da instru¬ 
ção SBC. 

Antes de uma subtração é importante que o Flag de Carry 
seja setado. 


Vamos a um exemplo: 

Ao subtrairmos #3C de #23, transformamos cada Byte 
em número binário e efetuamos a conta. 

00111100 - #3C 
-00100011 -> #23 

00011001 - #19 


Simples, não? Porém, no computador essa operação é rea¬ 
lizada de um modo diferente do nosso raciocínio, usando- 
se complementos (complementos indicam oposição a um 
número - 0 -► complemento -1; 1 -+ complemento - 0). 


Exemplo: 

(Operação realizada no computador para subtrair (# 3C- 
#23 = #19)). 


00111100 - #3C 
00100011 - #23 

11011100 -► complemento do segundo termo. É efe- 
+1 tuada a soma do complemento com 
uma unidade. 

11011101 = > o resultado é adicionado ao valor do 
+ 00111100 primeiro termo. 

1 00011001 

# 19 FIEX bit ignorado 


Como dissemos anteriormente, é importante que seja usa¬ 
da a instrução SEC antes de qualquer operação SBC, pois 
o BIT de CARRY é setado para que seja obtido complemen¬ 
to do segundo termo da operação na subtração. 

Para efetuar essa operação de subtração na prática, digi¬ 
te o programa a seguir: 


0800 - 38 SEC 
0801 - A9 3C LDA # $ 3C 
0803 - E9 23 SBC # $ 23 
0805 - 20 DA FD JSR $ FDDA 
0808 - 60 RTS 


Será impresso na tela o valor da operação, que ficará re¬ 
gistrado no acumulador. Para as outras formatações da ins¬ 
trução SBC , achamos não ser necessárias maiores infor¬ 
mações e detalhes a respeito, pois o funcionamento de ca¬ 
da instrução é idêntico, porém, de sentido oposto às instru¬ 
ções ADC. 

Você pode, como treinamento de estudo, modificar o 
exemplo anterior, para que cada vez seja introduzido no pro¬ 
grama um tipo diferente de instrução SBC e, assim, confir¬ 
mar se o resultado obtido por você bate com o resultado ob¬ 
tido pelo computador. 


MICROHOBBY 55 



















































































Programa Game 
(public. na ed. 21) 


Ao verificar o artigo GAME, publicado na edição 21 de Ml- 
CROHOBBY, notamos que as duas listagens referentes aos 
códigos em hexa estavam faltando. 

Nossas desculpas aos leitores de MICROHOBBY pela fa¬ 
lha cometida. 



LANÇAMENTO 


Terminal com 
teclado profissional 
tecnologia ITT 
compatível com toda 
linha Sinclair NE e TK. 
Teclado com feed-back 
táctil com todas as 
funções gravadas na 
própria tecia. Caixa em ABS expandido 6 mm de 
espessura pronta para receber seu micro 
computador com todas as interligações instaladas. 
Acompanha manual para montagem com opções 
de fixação da fonte internamente ou usando 
externamente. 

Saídas: Expansão memória/impressora 
Fonte externa ou interna 

Rgd6 

Gravação EAR/MIC 
Chave Liga/Desliga 
Chave 110/220 VaC 
Joystick 

INTER COL IND. E COM. LTDA. 

Depto. Vendas • Av. Alda, 805 • Diadema (Centro) 
fone: 456.3011 


Linha de Fabricação: 

Chaves comutadoras * 

Teclas e téclados semi profissionais 5* 

Teclas e teclados profissionais S 
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A MANIA DE SER 
INTELIGENTE 


Micro Computadores Li¬ 
nha TK — Temos TK-83, 
TK-85 e TK-2000. Também 
temos expansões de memó¬ 
ria, Joysticks e programas. 

Micro Computadores Li¬ 
nha Apple — Temos os 
preços mais baixos da cida¬ 
de. Trabalhamos com todos 
os tipos de expansão e peri¬ 
féricos. Grande quantidade 
de programas de jogos e 
aplicativos. Temos também 
Joystick analógico para 
Apple. 

Disquetes — Todas mar¬ 
cas de disquetes a preço de 
atacado. 

Literatura — Os melhores 
livros e revistas sobre a in¬ 
formática e video games. 


ttKfiO / MMt 

- v 

Al. Santos, 847 
Fone: 283-5376 
São Paulo 


VENHA NOS VISITAR E 
CONHEÇA A NOVA MANIA 
QUE ESTÁ CONTAGIANDO 
A CIDADE. 
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Programa 

Cadastro(public.na ed.20) 

Mário Folli 


Um leitor telefonou, chamando-nos a atenção para o 
programa "Cadastro", que estava incompleto da página 29. 
Verificamos a listagem e realmente a última parte não foi 
impressa, correspondendo da linha 5260 a 8000. 

Agradecemos ao leitor por ter observado esta falha, que 
agora transmitimos aos nossos leitores. 


5260 Díü) = OKI + 7>: NEXT : 
h - K - 7 

5270 POKE 34.18! HOME :NS = N 

5 - ÜNk = NR - ÜT = T - 7s R 
ETURN 

5300 RESTORE : FOR I = 4 TO í 

6 STEF 2 

53Í0 READ If: MTAB I: HTAB 4: 
INVERSE : FRINT IK NORMAL : 
NEXT : RETURN 
6000 POKE 34 r ü: H0HE 
ÓOÍÚ FRINT "H0ÜVE ALGUM ERRO" 
: FRINT 

Ó020 FRINT C0DIG0 00 ERRO: " 
: PEEK (222) 

Ó030 MTAB 6! PRINT "< PRESSI0 
NE ÔUALOUER TECLA )" 

6040 VTAB ó: HTAB 30: GET AK 
G0T0 50 

7000 MTAB 23: HTAB 10: FLASH 
: FRINT ■' CONFIRME: FIM (S/N)? 


"■ CHRi í7)• CHRi (7).-: NORMAL 
7010 GET Aí 

7020 IF Aí = "N" THEH 50 
7030 IF Ai ( ) "S" THEN G0S 
UB 5090: GOTO 7010 
7040 H0HE : END 
7500 G0SUB 5090: G0SUB 5090: 
POKE 34.0: HOME 

7510 PRINT : PRINT "* * * * * 
REGISTROS ESGOTADOS ***** 
": MTAB 7: PRINT GRAME 0S R 
EGISTR0S EFETUADOS E INICIE UM 
NÔM0 CADASTRO.": MTAB 15: PRI 
NT "< PRESSIONE QUALQUER TECLA 
>/': MTAB 15: HTAB 30: GET Aí: 
GOTO 50 

8000 DATA "NOME: '/'END 

EREC0: '/'TELEFONE: "/'CIDADE: 

"."PROFISSÃO:", "0BSERM.Í : " 
/ 083ERM.2 " a 




















































De hoje em diante nenhuma 
empresa, por menor que seja, pode 
dispensar o TK 2000 II. Por que? 

0 novo TK 2000 II roda o 
Multicalc: a versão Microsoft do 
Visicalc? o programa mais famoso em 
todo o mundo. 

Isto significa que, com ele, você 
controla estoques, custos, contas a 


pagar, faz sua programação financeira, 
efetua a folha de pagamentos e 
administra minuto a minuto as suas 
atividades. 

Detalhe importante: o novo 
TK 2000 II, com Multicalc, pode 
intercambiar planilhas com 
computadores da linha Apple® 

E, como todo business Computer 


Apresentamos o 

TK 20001 
Be rada o programa 
mais famoso 
do mundo. 


que se preza, ele tem teclado 
profissional, aceita monitor, diskette, 
impressora e já vem com interface. 

Além de poder ser ligado ao seu 
televisor (cores ou P&B), oferecendo 
som e imagem da melhor qualidade. 

Portanto, peça logo uma 
demonstração do novo TK 2000 II, nas 
versões 64K ou 128K de memória. 

A mais nova estrela do show 
business só espera por isto para 
estrear no seu negócio. 

Preço (128 K): 

CrS 2.949.850 

/I4ICRODIGIT4L 

computadores pessoais 



* Sujeito a aiieração sem prévio aviso. 


® Marca registrada da Visicorp. Filiada à ABIC0MP ® Marca registrada da Apple Computer. 









Filiada à ABICOMP 


A Microdigita 
lança no Brasi 
o micro pessoal 
demaiorsucesso 
no mundo. 

A partir de agora a história dos 
micros pessoais vai ser contada em duas 
partes: antes e depois do TK 90X. 

O TK 90X é, simplesmente, o único 
micro pessoal lançado no Brasil que 
merece a classificação de "software 
machine”: um caso raro de micro que 
pela sua facilidade de uso, grandes 
recursos e preço acessível recebeu a 



atenção dos criadores de programas e 
periféricos em todo o mundo. 

Para você ter uma idéia, existem 
mais de 2 mil programas, 70 livros, 30 
periféricos e inúmeras 
revistas de usuários disponíveis 
para ele internacionalmente. 


E aqui o TK 90X já sai com mais de 
100 programas, enquanto outros estão 
em fase final de desenvolvimento para 
lhe dar mais opções para trabalhar, 
aprender ou se divertir que com qualquer 
outro micro. 

0 TK 90X tem duas versões de 
memória (de 16 ou 48 K), imagem de 
alta resolução gráfica com 8 cores, 
carregamento rápido de programas 
(controlável pelo próprio monitor), som 
pela TV, letras maiúsculas e minúsculas 
e ainda uma exclusividade: acentuação 
em português. 

Faça o seu programa: peça já uma 
demonstração do novo TK 90X. 

/MICRODIGI14L 
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